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1.0 GENERAL DESCRIPTION OF COMPILER 

1 . 1 Summary 

1700 Mass Storage Fortran is oriented toward the 
users of medium-sized 1700' s. Input is from 
punched cards or paper tape; output is on a 
printer or paper tape punch and is formatted 
accordingly. Card- image input and line-image 
output may be on magnetic tape. Intermediate 
scratch files are on the disc. 1700 Mass Storage 
Fortran is released in versions for 16K or 20K 
machines, and runs under the Mass Storage Operat- 
ing System. 

The compiler consists of four passes over the 
source code or its equivalent, accomplished in 
four phases, called A, B, C, and D/E. (The 
fourth pass is performed by either Phase D or 
'Phase E, according to whether the user wants an 
assembly-language listing output.) Each phase 
consists of a "root" which is core-resident 
throughout the phase, and zero or more "local" 
subroutine groups which share the same core area 
and are read from disc as needed. 

1.2 Phase A Tasks 

These tasks read the source input, convert it to 
statements expressed in an internal code, and assign 
a statement number to the statement. 

The statements are syntax checked and itemized 
into an output file. The loop structure table 
(LOOPT) , equivalence table (lEQV) , specification 
table (ISTAB) , and much of the symbol table (SYMTAB) 
are built. 

1.3 Phase B Tasks 

PHASE B reads the output of PHASE A and generates 
pseudo-code from it. Pseudo code is similar to 
assembler input except that the index to be used 
in an indexed instruction is not specified and the 
addressing mode is not specified. 
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1.4 Phase C, D, E Tasks 

Phases C and D/E are a two pass assembler. The 
output from Phase B read. Index registers are 
optimally assigned. One word relative addressing 
is maximized. Relocatable binary output with futures 
and an assembly listing are produced. 

1.5 Partial Compilation In Special Cases 

The number of phases actually executed depends on 
the options selected and success of the compila- 
tion. If only a source listing is requested, only 
phase A is executed; this provides a complete 
syntax check without producing machine code which 
is not wanted. Similarly, only phase .A will be 
executed if it detected a fatal error in the pro- 
gram; a fatal error, by definition, precludes the 
generation of correct machine code, so there is no 
reason to generate the code. A third abbreviation 
of the compilation process occurs with stacked 
compilations when the 'X' option is selected but the 
’A', *M' , and 'P' options are not. Detection of a 

fatal error in a program clears the 'X* option for 
the stack, and therefore all following programs will 
be processed only by phase A. 

1.6 Local Optimizations 

Many local optimizations of the code generated have 
been implemented. 

1. Index registers are optimally assigned. 

2. Relative addressing is used where possible. 

3 Storage is allocated to maximize relative 

addressing. For example, some arrays are 
put into the middle of code. 

4. All simple FORTRAN provided functions are 
inserted in-line (e.g. , lABS or AND). 

5. A comprehensive analysis of IF statements is 
made. In the code generated there is cogni- 
zance of a transfer from the IF to the label 
of the next statement and if this statement is 
a ao TO. 
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2-5. B PHASEA Routine and Related Subroutines 

2*2. 2.1 Subroutine GNST 

2. 2. 2.2 Subroutine TYPE 

2. 2. 2. 3 Subroutine PEflVS 

B-B.B.M Subroutine PLABEL 

B.E.2.M.1 Subroutine RDLABL 

2. 2. 2. 5 Subroutine OPTIONS 

B.B.B.b Subroutine OUTENT 

2. 2.3. 2 Subroutine ENODO 

2. 2. 3. 3 Subroutine SAVEIO ( 

2.3 General Pass Routines 

2. 3. 1.1 Subroutine SYMBOL 

2. 3. 1.2 Subroutine STORE 

2. 3. 1.3 Subroutine GETSYM 

2.3.1. M Subroutine CNVT 

2.3.1.5 Subroutine SYMSCN 

2.3.2 Field Processing Routines 

2. 3. 2.1 Subroutine GETF 

2. 3.2.2 Subroutine GETC 

2. 3. 2. 3 Subroutine GPUT 

2.3.2. M Function IGETCF 

2.3.2.5 Subroutine STCHAR 

2.3.3 Special Field Analyzing Routines 

2. 3. 3.1 Subroutine CONSUB 

2. 3. 3. 2 Subroutine CFIVOC 

2. 3. 3. 3 Subroutine CKIVC 

2.3.3. M Subroutine CKNAME 


2.3. M Diagnostic Handling Routine 

2.3. M.l Subroutine DIAG 

B.3.M.2 Subroutine CONV 

2. 3. 4. 3 Subroutine PACK 

2. 3. 4. 4 Subroutine PUNT 

2.3.4.5 Subroutine PRNTNM 

2.3. 4. ti Subroutine lOPR 

2.4 Statement Specific Phase A Routines 

2.4.1 DIMENSION Statements - Subroutine DIMPR 

2.4.2 COMMON Statements - Subroutine COMNPR 

2. 4. 3 TYPE Statements - Subroutine TYPEPR 
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2.4.4 BYTE, EQUIVALENCE Statements - Subroutine 
BYEQER 

2.4.5 SUBROUTINE, FUNCTION Statements - Subrou- 
tine SUBPPR 

2.4.6 DATA Statements - Subroutine DATAPR 

2.4.7 FORMAT Statements 

2 . 4 . 7 . 1 Subroutine CHECKF 

2 . 4 . 7 . 2 Subroutine FORK 

2 . 4 . 7 . 3 Subroutine FGETC 

2.4.8 ASSEM Statements - Subroutine ASEMPR 

2.4.9 ASSIGN Statements - Subroutine ASGNPF. 

2.4.10 EXTERNAL & RELATIVE Statements - Subroutine 
EXRLPR 

2.4.11 REWIND, ENDFILE, BACKSPACE Statements - 
Subroutine ERBPR 

2.4.12 READ, WRITE Statements - Subroutine lOSPR 

2.4.13 DO Statements - Subroutine BDOPR 

3.3 Special Subroutines for Common Allocation 

3.3.1 Subroutine ARAYSZ 

3.3.2 Subroutine CPLOOP 

3.4 Arithmetic Expression Processors 

3.4.1 ARITH 

3.4.2 SUBSCR 

3.4.3 TREE 

3.4.4 MODMXR 
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2.Q PHASE A TASKS AND SUBPROGRAIIS 


2.1 Summary 

The driver -CFTN> is entered by the Job Processor control 
statements. The driver indirectly calls the Phase A 
main program -CPHASEA>. The source lines are read in 
formatted ASCIIi converted to statements in an internal 
coden given a sequential statement numbern and stored 
in the buffer ISORS {routine GNST>. The statement type 
is computed {TYPE> . The statements are sent to their 
appropr iate processors-! syntax checked-i itemized into 
an output buffer {see 7 .S>i and output {routine 0UTENT> . 
Upon encountering the first executable statement {or 
an END statement}-! the EQUIVALENCE statements-i which 
are in a tabulated form in core-i are processed and the 
lEQV table is formed {routine PEQVSl. Control is re- 
turned to FTN through the routine GOAi which either 
proceeds to read in and execute Phase B-! or restarts 
Phase A to read the next source program . 
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2.2 OVERLAY PROGRAMS 

Each phase consists of a main section, or 
'root', which is resident in core during the 
entire execution of its phase, and, if neces- 
sary, a number of subroutine groups, or 
'local files', which are read in from the 
disc as needed. The local files overlay one 
another in core and are so programmed that 
they are 'read-only'... no program in a 
local file contains variables which are carried 
over from one call to the next, so the f ie 
may be overlaid by another and recalled later 
without being saved in the meantime. (Some pro- 
grams which are in local files do have vari- 
ables which must be preserved; these vari- 
ables are placed in blank common, which is 
not overlaid during a phase.) In effect, the 
local files are an extension of the phase 
concept, except that a program in one local 
file can, with certain restrictions, call 
one in another local file of the same phase. 

2.2.1 FLOW OF CONTROL 

The compiler is entered by calling the relocatable 
program FTN from the system library. FTN in 
turn calls the file FORTAl from the library 
and transfers to the first instruction of the 
routine GOA. From this point on control is 
transferred by normal calling sequences from 
GOA to the main routine of phase A, PHASEA, 
and to various subroutines. When it is neces- 
sary to use a routine in a different local 
file, the subroutine LOCAL is called, giving 
file number and entry number within file. 

LOCAL reads the overlay portion of the speci- 
fied file into the overlay area. The overlay 
portion of each file begins with a list of 
the addresses of its entry points; LOCAL 
transfers to the n'th address in the list for 
the new file. When the routine thus called 
returns to LOCAL, LOCAL reads the original 
calling file back in and returns control to 
the program which originally called.it. (In 
the 20K compiler, most calls are from PHASEA, 
in the root, to local subroutines. In this 
case, if the desired subroutine is already 
in core, LOCAL is bypassed; if not, the routine 
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is read and called by LOCAL, but when it 
returns, its file is left in core. Inter-local 
calls... between lOSPR and ARITH, and between 
ARITH and MODMXR. . . are handled as in 16K. ) 

The local-file mechanicm is generally trans- 
parent to the compiler programs. 

At the end of phase A, the main routine (PHASEA) 
returns to GOA, which in turn returns to FTN. 

FTN reads in the first file of the next phase 
(FORTBl) and jumps to GOB. There are similar 
linkages from phase B to C, and from C to D or 
E. 

In the event that compilation should be aborted 
after phases A or B (see section 1.5), a call 
is made to entry SKIPIT in subroutine GOA or 
GOB. SKIPIT causes an alternate return from 
GO to FTN, such that FTN re-initializes itself 
just as though phase D/E had just been completed, 
and reads FORTAl to start compiling the next 
program (if any) on the input stack. 

The choice between sub-phases D and E is based 
on the user-selected options; D is used unless 
an assembly-language listing is requested (A or 
M option). In the 16K compiler, FTN always 
reads FORTDl at the start of phase D/E, and the 
phase D/E local routine decides whether to use 
the D or E local routines. (The D and E roots 
are identical.) In the 20K compiler, GOC 
tests the options and makes an alternate return 
to FTN such that FORTDl or FORTEl is read. 

2. 2. 1.0.1 FLOWCHART OF PROGRAM FTN 

2. 2. 1.1 VERSIONS OF 'GO' ROUTINE 

In each phase, the subroutine GO is called by 
FTN; it calls the initialization entry of the 
I/O package, then the main routine of the phase; 
then performs some I/O clean-up and returns to 
FTN. In addition to this, each GO has special 
functions which will be detailed below. 
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GOA checks a flag set by FTN, to determine 
whether this is the start of a stacked compila- 
tion; if so, it STATUS 'es the list device and 
sets a flag telling whether the device can 
accept standard carriage control; and it calls 
OPANAL to request options from the typewriter. 
If this is not the start of a stack, the first 
source statement is read and checked for being 
a MON; this saves rebuilding the phase A local 
files just to read a MON. (The statement, if 
not a MON, is left in the input work area for 
later processing by GNST. ) Whether or not 
this is the start o'F a stack, the phase A 
local files must then be prepared. (A flag 
is tested to determine whether the files are 
still intact in the disc scratch area, as they 
would be if phase B had not been called; if 
so, LOCALS is called at entry LOCLZ2, rather 
than LOCLlZ, to just rebuild tables in core 
rather than rebuilding the scratch area.) 

PHASEA is then called. It will either return 
normally, or call SKIPIT; GOA's return address 
is adjusted accordingly. The WRITE entry in 
lOPR is called to force out the last scratch 
page, and GOA returns to FTN. 

GOB clears the flag which indicates that the 
phase A local files are intact in the scratch 
disk area; interchanges the scratch file num- 
bers so that the phase A output file becomes 
the phase B input file; in theE-OA version, 
causes the phase B local files to be generated; 
calls phase B; and upon return, finishes the 
phase as GOA did. 

GOC, in theE.OA version, is similar to GOB. 

In the S. OB version, after return from PHASEC 
(There is no SKIPIT entry)^ it chooses alternate 
returns to FTN depending on whether or not the 
A and M options are selected. 

GOOD and GOE are identical to one another in 
function and are similar to GOB. However, 
after return from the main routine (PHASES) , 
there is no scratch page to be output; and, if 
the list device is a magnetic tape, an end of 
file is written. 
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The load-and~go file is built at the start of 
the scratch disk area, if the X option was 
specified, by the phase D/E routine NPUNCH. 

The compiler's scratch area "floats" on the 
growing load-and-go file; at the start of 
each compilation, GOA saves the address of the 
top of the file from the communication area 
in low core, and at the end of each compilation 
GOOD or GOE adds to that value the length of the 
current load-and-go output. (Also see dis- 
cussion of disk allocation in description of 
subroutine lOPR. ) 

2. 2. 1.1.1 FLOWCHARTS OF SUBROUTINE GO 

2. 2. 1.2 VERSIONS OF 'LOCAL' ROUTINE 

References to non-resident subroutines (in 
phases A, B, D and E of the E . DA compiler and 
phase A of the H.O0 pass through the subrou- 
tine LOCAL. Subroutines to be placed in 
"local files" are written so that any variables 
which must be preserved between calls are plac- 
ed in blank common, so that the routine can be 
overlaid without first being saved. The non- 
resident routines are then grouped in files on 
scratch disk, and references to them are inter- 
cepted by dxammy routines which call LOCAL. 

That routine reads the file containing the 
called routine, executes that routine, and 
returns control to the dummy's caller. 

At the start of a phase containing local sub- 
routines, the entry LOCLI3 is called; it trans- 
fers the local files from the library to scratch 
disk, so that they can be referenced directly 
rather than via GTFILE. Each file so transferred 
contains: (1) one word containing the address 

of ENDLOC, a dummy routine loaded at the end 
of each file so that the file length can be com- 
puted; (2) a list of words containing the address 
of each "entry point" of that file; and (3) the 
absolutized subroutines of the file. 

A call to a local subroutine not presently in 
core goes through a dummy routine and becomes a 
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call to LOCAL with a file number and entry number. The 
present state of the overlay system is saved in a number 
of pushdown stacks. The desired file is read into the 
overlay area and the desired entry point is called. If 
that program causes a LOCAL calii the state saving and 
file reading is repeatedi the number of levels of call 
allowed is limited by the size of the pushdown stacks. 

Upon return from a local filei the stacks are popped up 
one level. The calling file is read back in -Cexcepti 
in 2 .DB 1 if the call was from the rootli and the calling 
program is returned to. 

A "flag" paramter is provided in LOCAL and has three 
quite different uses in different versions of the routine. 

In 2. DA phase At FLAG=1 means that the calling file has 
finished execut ion-i and need not be read back ini for 
examplei PHASEA in file A1 calls ARITH in file A2i just 
before returningi ARITH calls TREE in file A3 i and just 
before returning! TREE may call HODHXR in file AL. 

There is no reason to reload TREE and ARITH after flODMXR 
is done! so the stacks are popped up three levels and 
control goes directly from MODflXR to PHASEA . 

In 2. DA phase Bn parameters must be passed to local 
routines^ here-s FLA6=1 means that the following word is 
a parameter address to be passed on. 

In 2. OB phase At almost all calls are from PHASEA in the 
root! to local routines i there FLAG=1 signals the case 
of a local-to-local call! where a different algorithm 
is needed to find the proper return address . 

In the 3 . DA and 3 . lA compiler! routines STCHAR and 6ETC 
must be loaded at the same point in files FORTAl and 

FORTAL in order to have externals in SAVEID patched prop- 
erly for both f iles . This is accomplished by a small 
BSS in DUMYAb which is followed immediately by ERBPR to 
equal the length of DUflYAl • 


2. 2. 1.2.1 Flowcharts of the "Local" Subroutines 
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2.2.2 PHASEA 

Phase A operates as follows: 

1. Perform PHASEA Initialization. 

2. Read a statement. 

3. Process the label. 

4. Determine statement type. 

5. Branch to process the statement type by either 
a. calling the particular processor if the 

statement type is not to be processed in 
PHASEA, or - 

b» branching to the in-line processing of the 
statement type in PHASEA. 

6. Repeat the procedure from step 2 to step 5 
until an END statement is reached. Upon the 
occurrence of an END statement, exit from 
PHASEA. 

2. 2. 2. 0. 1 PHASEA Initialization 

The initialization procedure for PHASEA operation is 
described in detail in the flow charts for PHASEA. 

The Phase A Block Data routine contains all data 
presets for labelled common. 

2. 2. 2. 0. 2 Reading Statements 

Each FORTRAN source statement is assigned a statement 
number by the PHASEA routine. ISTNO is the name of a 
register which contains the number of the statement 
about to be read and processed. ISTNO is set to 
zero by Initialization. It is then increased by 1 
prior to reading each source statement. In this manner 
ISTNO contains the number of each source statement at 
the time it is to be read. A source statement is 
read by a call to the routine whose name is GNST. (See 
item 2. 2. 2.1) 
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2.2.2.D.3 Format of Input Entry 


The GNST routine will read a source statement from a 
card and store it in its internal buffer €ISRS>- The 
characters which make up the source statement are 
recorded in the ASCII code as follows: 


Character 


ASCII Code 


Digits: D-T 

Letters: A-Z 

ecial Characters 

$30 

$41 

Dollar Sign $ 

$24 

Period 

• 

$2E 

Plus 

+ 

$2B 

Minus 

- 

$2D 

Equal Sign 

= 

$3D 

Left Paren 


$26 

Right Paren > 

$21 

Comma 

1 

$2C 

Slash 

/ 

$2F 

Asterisk 

* 

$2A 

Space 


$20 

Statement 

Terminator ^20 

Single Jjuote ' 

$27 


3T 

$SA 


The GNST routine will convert the code f or each character 
of the statement from ASCII to Inter nal FORTRAN • The 
Internal FORTRAN code is as follows : 


Character 


Internal FORTRAN Code 


Digit: 0-T 0 - T 

Letter : A-Z 10 - 3S 

Special Characters 

Dollar Sign 3b 

Period 3? 

Plus 3fl 

ninus 3T 

Equal Sign MO 

Left Paren 41 

Right Paren 42 

Comma 43 

Slash 44 

Asterisk 4S 

Space 4b 

Statement Terminator 47 

Single fluote 46 


Following the code conversions-! the entire statement 
is transf erred to the source buffer IISORSl • The 
buffer which is internal to the GNST 
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routine and the source buffer are defined in the source 
language of the compiler by COhilON statements- The name 
of the source buffer is ISORSn and its length is 2Da. 
Upon return from GNSTt ISORSX contains the number of 
words in the source statement. 

2. 2. 2- 1]. 4 Processing Label 

The PHASEA subroutine will call the subroutine whose 
name is PLABEL- This subroutine will determine whether 
or not there is a label andn if so-i process it- 

2. 2. 2- 0-5 Identifying Statement Type 


The type of the source statement currently being pro- 
cessed is determined by the subroutine whose name is 
TYPE - Upon return from the subroutine TYPEt an identi- 
fying number giving statement type is recorded in the 
third word of the output buffer - {Refer to items 
2.2.2.D.L.2 and 2 - 2 - 2 -0 . b -2 -1> . 

There are 47 type numbers used to identify FORTRAN 
source statements : 


Type Number 


Statement 


D 

1 

2 

3 

4 

5 
h 
7 

6 
T 

10 

11 

12 

13 

14 

15 
lb 
17 

16 
n 
20 
21 
22 


DIMENSION 

COMMON 

INTEGER 

REAL 

INTEGER FUNCTION 

REAL FUNCTION 

PROGRAM 

SINGLE 

BYTE 

SIGNED BYTE 

EXTERNAL 

RELATIVE 

EQUIVALENCE 

BLOCK DATA 

SUBROUTINE 

FUNCTION 

DATA 

FORMAT 

Replacement statement 

Statement function 

ASSIGN 

CALL 

RETURN 
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170D 


23 

NOT USED 

2M 

UNCONDITIONAL 60 TO 

2S 

COMPUTED 60 TO 

2L 

ASSIGNED 60 TO 

27 

CONTINUE 

2fl 

STOP 

2T 

STOP n 

30 

PAUSE 

31 

PAUSE n 

32 

END 

33 

END FILE 

3M 

REWIND 

3S 

BACKSPACE 

3L 

READ {unf ormattedi 

37 

READ {formatted} 

3fl 

WRITE {unformatted} 

31 

WRITE {formatted} 

MD 

BEGIN DO 

m 

END DO 

HZ 

ARITHMETIC IF 

HZ 

LOGICAL IF 

'4M 

ASSEM 

H5 

OPEN 

ML 

DOUBLE PRECISION 

H7 

DOUBLE PRECISION FUNCTION 


2.2.2.Q.L Branching to Process Statements 

Branching to process a statement is accomplished by 
means of a Computed GO TO statement in which the index 
ITEflPX contains the type number +1 for the FORTRAN 
source statement. A jump is made to a particular 
statement number in the subroutine depending on the 
value in ITEflPX • After processing each statement! a 
test is made to see if the statement has a label . If 
the source statement does have a labeli a call is made 
to the ENDDO subroutine • If this statement label 
terminates a DO loop! ENDDO will generate the necessary 
intermediate language for the DO loop terminat ion 
procedure • Prior to calling ENDDO! the statement label 
is recorded in ILLABL • 

2.2.2.0.fcj.l Statements Not Processed in the PHASEA Routine 

Each of these statements is processed by a call to its 
processor subroutine . The call is made from PHASEA 
subsequent to branching . 


C A t3S- 1 REV 10-67 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER DIVISION 

DOCUMENT CLASS PAGE NO.___2::iili 

PRODUCT NAME 1700 HASS STORAGE FORTRAN 

PRODUCT MODEL NO. C0D5»3 <1 A/B MACHINE SERIES 


Source Statement Subroutine called from PHASEA 

DiriENSION ]>inPR 

connoN coriNPR 

SINGLE TYPEPR 

INTEGER TYPEPR 

INTEGER FUNCTION SUBPPR 

REAL FUNCTION SUBPPR 

REAL TYPEPR 

BYTE BYEflPR 

SIGNED BYTE BYEflPR 

EXTERNAL EXRLPR 

RELATIVE EXRLPR 

EQUIVALENCE BYEQPR 

FUNCTION SUBPPR 

SUBROUTINE SUBPPR 

DATA DATAPR 

FORMAT CHECKF 

ASSIGN ASGNPR 

CALL ARITH 

ENDFILE ERBPR 

REWIND ERBPR 

BACKSPACE ERBPR 

READ unformatted lOSPR 

READ formatted lOSPR 

WRITE unformatted lOSPR 

WRITE formatted lOSPR 

DO BDOPR 

ASSEM ASEMPR 

OPEN lOSPR 

DOUBLE PRECISION TYPEPR 

DOUBLE PRECISION FUNCTION SUBPPR 


2 .2 . 2 • 0 • t . 2 Statements Processed in the PHASEA Routine 

Several statement types are processed in the PHASEA 
subroutine . These are PROGRAM-i BLOCK DATAt RETURNt 
GO TOi IFi CONTINUE*. STOP*, PAUSE*, replacement statements*, 
statement functions*, and END • 

2 .2 .2 .b.2 .1 Program 

The PHASEA routine verifies the correct format of the 
statement*, then records the name of the program in the 
symbol table as a program name . In the event of a 
format error*, an indication is made by a call to the 
DIAG subroutine. The PHASEA subroutine then reads and 
processes the following source statement • 
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The PHASEA routine verifies the correct format of the 
statement . In the event of an error i an indication 
is given by a call to the BIAG routine- The switch 
named ISUBP is set to a **1" to indicate the compiler 
will generate object code for COnnONn BATAn BYTEt 
EQUIVALENCE & BIHENSI0N statements only. 


2 . 2 . 2 .0 . t . 2 . 3 Return 

A RETURN statement is legal only if the source program 
is either a FUNCTION or SUBROUTINE. If the RETURN 
statement is used legallyn the intermediate language 
is passed on for processing by a subsequent phase. 

If the return statement is used illegally! an error 
diagnostic is produced by a call to the DIAG subrout ine . 
A STOP statement is substituted for the RETURN statement 
and it is passed on as intermediate language to be 
processed by a subsequent phase. 


2.2.2.0.L.2.M GO TO 


The GO TO type is determined . Depending on the type-i 
the statement is syntax checked and converted to list 
notation . Computed GO TO causes a call to ARITH . 
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2. 2. 2. 0.6. 2. 5 IF 

For both logical IF and Arithmetic IF state- 
ments, the expression in parentheses is o.ro- 
cessed by a call to the ARITH subroutine. .M:tor 
this call if the statement is an arithmetic- iv , 
PHASEA will process the three statement labels 
following the arithmetic expression in tfie 
source statement. Statement labels following 
the expression must be separated ilrom each 
other by commas, and the last one must be fo] lov.'- 
ed by an EOS. There must be exactly 3 state- 
ment labels in an Arithmetic IF statement. The 
statement labels are processed as .follows: 

PHASEA calls the RDLABL subroutine in 
order to extract the statement label 
from the source buffer. If the state- 
ment label does not appear in the sym- 
bol table, it is entered the.rc->in by 
a call to the STORE subroutine. Upon 
return from STORE, the entry in the 
symbol table is assigned the classi- 
fication for a statement label by - 

7 — ICLASS (ISYMX) 

An entry is made into the output when th<5 point- 
er to the symbol table entry is recorded as 
part of the intermediate language by - 

(ISYMX) + (ISYMP) ^ IBUF2 (ITEMPl) 

(Upon return from ARITH and prior to processing 
the 1st statement label, the tally register 
IBUF2X was recorded in ITEMPl. IBUF2X was 
then increased by three for the three extra 
words of intermediate language generated in IBUF2). 

After all the labels are processed, WORD 1 of 
the output buffer is set to the word length cf 
the output buffer by - 

(IBUF2X) - 1 — IBUF2(1). 

The PHASEA subroutine will check for and give 
diagnostics upon occurrence of any of the 
following errors: 
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1. There are either fewer than or more than 
three statement labels following the express- 
ion in an Arithmetic IF statement, 

2. A character other than a comma has occurred 
between two statement labels. 

3. A character other than an EOS follows the 
last statement label. 

4. Two commas have occurred consecutively in 
the source statement with no statement label 
between. 

Each of the above errors will cause processing of the 
Arithmetic IF statement to be terminated. 

The LOGICAL IF statement is broken into two state- 
ments by the PHASEA subroutine. Only the first of 
the two subsequent statements is assigned a state- 
ment number. There is an output entry generated 
for each statement. WORD 2 of the 1st output entry 
contains the statement number for the LOGICAL IP 
statement. A switch named LOGIF is at all times set 
to the zero position except - 

1. it is set to a "1" when processing the 1st 
half of a Logical IP statement, and - 

2 . it is set to a "2” when processing the 
second half. 

The second of the two statements may be one of the 
following: 

REPLACEMENT 

CALL 

GO TO 

STOP 

PAUSE 

RETURN 

READ 

WRITE 

ENDFILE 

REWIND 

BACKSPACE 

The switch named LOGIF is at all times set to zero 
except when processing a statement whose type number 
identifies the statement as a Logical IF. Upon receipt 
of a Logical IF statement, the LOGIF switch is set 
to a 1. The input entry containing the Logical 
IF is passed as intermediate language. If the state- 
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ment has a label, the label is recorded temporarily 
in ITEMP9, otherwise, (ITEMP9) = 0. 

The second half of the logical IF statement is moved 
to the beginning of the ISORS buffer so that it 
appears to the PHASEA routine as an independent 
statement. PHASEA then branches to the point just 
after the call to GNST. 

When the following statement is processed, it is 
recognized as the 2nd part of a Logical IF by the 
fact that - (LOGIF)=l. 

The input entry for the 2nd part of the Logical IF 
is passed on as intermediate language for process- 
ing by a subsequent phase in the same manner as 
for the 1st part. Afterward, the switch LOGIF is 
set to a 2. Then if (ITEMP9) ^ 0, the label in 
ITEMP9 is placed in ILLABL and a call is made to the 
ENDDO subroutine. If this statement label is associ- 
ated with the end of a DO loop, ENDDO will generate 
the necessary intermediate language for termination 
of the DO loop procedure. PHASEA will then process 
the next statement in sequence. If (ITEMP9) = 0, 
PHASEA proceeds immediately to process the next state- 
ment in sequence. 

The LOGIF switch will be reset to a zero when pro- 
cessing the next statement in sequence. 

2. 2. 2. 0. 6. 2. 6 CONTINUE 

A CONTINUE record is output. (See Output Format, 

Phase A, Chapter 7, section 7.5). 

2. 2. 2. 0. 6. 2. 7 STOP 

PHASEA determines whether or not the STOP statement 
is a 


STOP n 

in which "n" represents an octal integer, followed by 
a legal terminator (EOS character) . One of the follow- 
ing three events will occur: 

1. The statement is not a 

STOP n 

and the intermediate language will be passed 
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on for 'cossinq '> y a subsoquent fhaso. 

2. The stat aent is o 

STOP n 

where "n" is an octal integer fol lowed by 
a legal terminator. The type number in 
word 3 of the output buffer is changed to 
type number for a STOP n by - 

IBUF2(3)+1 — ^IBUF2(3). 

3. The statement xs a 

STOP n 

where either "n" is something other than 
an octal integer or an octal integer ^ low- 
ed by something other than a legal ten nator. 
An error diagnostic is produced by a call to 
the DIAG subroutine. The in' rmediate 
language for the statement is : ' ;d or. 

2. 2. 2. 0.6. 2. 8 PAUSE 

PHASEA determines whether or not the Pf TF statement 
is a 


, PAUSE n 

in which "n” represents an octal integer, fo' 
by a legal terminator (EOS character) . One tiie 
following three events will occur; 

1. The statement is not a 

PAUSE n 

and the intermediate language will, be 
passed on for processing by a subsequoit 
F’'iise. 

2. i statement is a 

PAUSE n 
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wherein "n" is an octal integer fo.Mowed 
by a legal terminator. The type number in 
word 3 of the output buffer is changed to 
the type number for a PAUSE n by - 

IBUF2 (3)+l --=5^ IBUF2 (3) . 

The octal integer is recorded as the last 
word of the output entry for the state- 
ment. The intermediate language.^ for the 
statement will be passed on for process- 
ing by a subsequent phase. 

3. The statement is a 

PAUSE n 

wherein either ”n" is something other than 
an octal integer or an octal integer fcl lowed 
by something other than a legal terminator. 

An error diagnostic is produced by a call 
to the DIAG subroutine. The intermediate 
language for the statement is passed or.. 

2. 2. 2. 0.6. 2. 9 Replacement Statements and Statement Functions 

PHASEA reads the first field of the statement using 
GETF. If the field is not a variable, array, oi" 
unassigned name, an error is output and the state- 
ment ignored up to the equal sign. 

If the field is a legal name, it is entered in EIYMTAB, 
if not already there. 

The field terminator is then checked. If the tt;r- 
minator is neither a left parenthesis nor an ». qual 
sign, an error is output arid the statement igno::od 
up to the equal sign. 

If the terminator is left parenthesis and t:he n<ime 
has not yet been classified as a variable or ar 'ay 
and we have not yet encountered the first execu- 
table statement, the name is assumed a statement 
function. The initial part of the output entry is 
set up in IBUF2 accordingly, and the function para- 
meters are entered in SYMTAB. 

If a statement function is illegal at this poin: in 
the program or the name has previously been dct'.^rTnined 



,,sf >■ . 
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a variable or array, PHASEA resets ISORSX so that 
the first field will be reprocessed and calls 
ARITH to process the information to the left of the 
equal sign (ISTOP =2) . 

After ascertaining in all cases that ISORSX is 
positioned to the field immediately following the 
equal sign PHASEA recalls ARITH to process the 
information in the statement to the right of the 
equal sign (ISTOP - 0) . 

Upon return from ARITH, PHASEA voids the SYMTAB 
entries for statement function parcuneters if xt 
has been processing a statement function. 

2.2.2.0.6.2.10 END 

If the program being compiled is a main program, a 
check is made to see if a 'last executable statement' 
must be generated. If the type number of the pre- 
vious statement (stored in LEST) is not one of the 
following, PHASEA will generate the 4 word output 
record for a STOP statement; 

GO TO 
STOP 

Arithmetic IF 

If any DO LOOP remains 'open', that is, if the label 
terminating any DO loop has not been encountered, 
a fatal diagnostic is generated. A CONTINUE state- 
ment is generated in IBUF2 and a call to ENDDO is 
made for each missing label. 

An output record for an END statement is generated 
and output. Then CPLOOP is called to assign relative 
addresses for elements and dimensions in COMMON 
storage. If a fatal error has been detected in 
Phase A, or if no assembly or execute options (X,M,A,P) 
are set, compilation is terminated at this point 
by a call to SKIPIT. Otherwise, an exit is made 
from PHASEA. 

2. 2. 2. 0.6. 3 Format of Phase A Output Records 

An output record consists of the information neces- 
sary to convert the statement to pseudo-assembler 
instructions in Phase B. The format of the output 
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record for each statement type is listed in Chapter 
1 , section 7.5. The first 4 words are the same 
for all output records: 

Word 1 contains the total number of words in 
the output entry, including words 1-4. 

Word 2 contains the statement number for the 
source statement (ISTNO) . 

Word 3 contains the statement type. 

Word 4 is a switch used to signal the generated 
statement or statements which comprise the 
second half of a logical IF. 

Word 5. If word 2 is negative, the absolute 
value of word 2 is the statement number of the 
statement, and word 5 contains the SYMTAB 
entry for the statement label of that statement. 

If word 2 is positive, the coded information 
appropriate to the statement type begins in 
word 5. 

Output record information is built in IBUF2, and 
is written on the disk by a call to the OUTENT routine . 
The starting address for the write operation is 
specified as the only argument of the subroutine 
call. 
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2. 2. 2.1 Subroutine GNST 

The GNST subroutine reads the source statements which 
are to be processed by the PHASEA subroutine . 

With the exception of comment cardsi each source card 
read by GNST is processed in three stages • 

STAGE 1. 


The GNST subroutine calls the READ entry point in 
lOPRBA to read an 32 character record from unit 1 in 
the ASCII mode . The input buffer-i ISRSn occupies Ml 
words of Phase A blank common . The GNST routine then 
scans ISRS from right to left and stores in the variable 
LENGTH the location of the right-most word containing 
a non-blank character -Cnot equal to $2020} . 

STAGE 2. 


The contents of the ISRS buffer are printed and 
transf erred to the source buffer ISORSn which occupies 
2Dfl words of Phase A blank common • 



STAGE 3. 

The characters stored in the source buffer ISORS 
are converted from ASCII code to the internal Fortran 
code {see 2. 2. 2. 0-3}. 

Continuation records are processed through all three 
stages during one call to GNST • The initial record of 
a Fortran statement other than END is passed through 
stage 1 on one call to GNSTi and through stages 2 and 
3 on the following call . Because GNST reads at least 
one record ahead in the source language input n at least 
two consecutive source records will be processed during 
a single call to this subroutine . 


2. 2. 2. 1.1 Normal Flow of Subroutine GNST 


This section describes the operat ions accomplished by 
a single call to GNST after the first non-comment record 
has been processed and before the END record has been 
read . At entry to GNSTi the input buffer ISRS will conta 
the initial record of a Fortran statement that has pre- 
viously been processed through stage 1 . The first task 
of GNST is to process this ISRS buffer through stage 2i 


in 
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that isn to print the record {if the list option 
switchi ILi is on} with an internal statement number n 
and then move the record to ISORS • A full seventy-two 
characters {3ti words} are transfered to ISORS to allow 
for later continuation cards. The location of the 
rightmost non-blank word in the record-> formerlv/ saved 
in LENGTHn is transferred to LENSAV . 

The subroutine 6NST next reads a new input record into 
ISRS and processes it through state It any characters 
stored as $FF by the paper tape or magnetic tape drivers 
are changed to blank {$20} and the location of the right- 
most non-blank word is ISRS is stored in LENGTH ■ 

After processing the new input record through stage It 
6NST checks for three special cases - a blank recordT 
a comment recordT or a continuation record {not zero 
or blank in character #L}. These three types of records 
are immediately processed as follows: 

a} Blank record - ignored • A new input record 
is read and processed through stage 1. 

b} Comment record - printed and ignored . If the 
IL switch is onT the comment record is printed without 
a statement number and then a new record is read and 
processed through stage 1. 

c} Continuation record - compl etely processed in 
one call • The contents of ISRS are printed without a 
statement number {if IL = 1}. Characters 7 through 72 
of the continuation record are added to the end of the 
statement in the ISORS buffer • ISORSX {set to 1 on 
entry} is set to the beginning of the added record . 

The variable LENSAV is reset equal to LENGTH so that 
LENSAV contains the location of the rightmost non-blank 
character in the last r ecord added to the ISORS buffer • 

If the record in ISRS is the initial line of a Fortran 
statement other than ENOt further processing is def erred 
until the next call to 6NST • At this point in the f Iowt 
a full Fortran statement {with all continuations} is 
contained in ISORS • The final step of the GNST sub- 
routine is to convert this statement from ASCII code 
to internal Fortran code . GNST exits with a full con- 
verted Fortran statement in ISORS and the initial line 
of a Fortran statement in ASCII in ISRS • 
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2 . 2 . 2 . 1. 2 . First and last source records. 

Until the first non comment record is read, stages 
two and three are skipped in the GNST flow. The 
variable LENSAV is set to zero by a data statement, 
and therefore remains ?ero until a non- comment state- 
ment is read. When LENSAV is equal to zero, the 
printing and transfer of ISRS at the beginning of 
GNST and the code conversion at the end are not exe- 
cuted. Initial comment cards are printed as usual. 

At the end of stage two, after ISRS has been trans- 
ferred to ISORS , ISRS is tested for the presence of 
an END record. If the card in ISRS is an END card 
no more input records are read and the END card is 
immediate ly converted to internal code. 

2. 2. 2. 1.3. Errors 

When processing a non-comment statement, GNST tests 
for the following illegalities. 

1. That the first non- comment record is 
an END statement. 

2. That the first non-comment record is 
a continuation card. 

3. That there are more than five continua- 
tion cards for a source statement. 

4. That characters illegal in Fortran occur 
in the source statement. 

2. 2. 2. 1.3.1; End statement as first non- comment record . 

The variable LENSAV is set to zero until the first 
non-comment card is read and processed. If the END 
card is read while LENSAV =0, an error diagnostic 
is given, and further processing of this program is 
terminated by a call to subroutine SKIPIT. 

2 . 2 . 2 . 1 . 3 . 2 . Continuation card as first non- comment card of deck. 

Error flag IERR35 is set, character number 6 is set to 
blank , and the record is treated as the initial record 
of a Fortran statement. After the record is fully pro- 
cessed the appropriate error diagnostic is printed. 
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2. 2. 2. 1.3. 3. More than 5 continuation cards. 

ITALLY is a tally register for the number of con- 
tinuation cards per statement, ITALLY is set to 
zero on entry to GNST and increased by 1 for each 
continuation card read. When ITALLY exceeds 5 
in value the error flag IERR47 is set. Continua- 
tion cards in excess of 5 are printed but are not 
added to ISORS.When the next initial statement 
card is read, the diagnostic is printed. 

2. 2. 2. 1.3. 4, Illegal characters 

Characters not contained in the Fortran character 
set are converted to blanks in stage 3, after printing 
the record. A non-fatal diagnostic is printed for 
each illegal character. 
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2. 2.2. 2 TYPE 

The TYPE subroutine is used by PHASE A to determine the 
type number for the statement. If the TYPE subroutine 
is able to determine the type number for the statement* 
it will place the number in the location IBUF2I3} and exit. 
If TYPE is unable to identify the statement* it sets an 
error indicator and returns to the calling routine. 

2. 2. 2.2.1 Entrance to TYPE 


Entrance to the TYPE subroutine is made by the following 
statement: 

CALL TYPE {error flag} 

The subroutine statement which leads the TYPE subroutine 
is as foil ows : 

SUBROUTINE TYPE flXl} 

where IXl is the name of the formal parameter correspond i ng 
to ’’error flag”. 

2. 2. 2. 2. 2 In i t ia 1 i zat i on for TYPE 

Immediately after entrance is made to the TYPE subroutine* 
the following steps of i n i t ia 1 i zat i on occur: 

1. The error flag is cleared. 

n— >1X1 

2. The parpnthPBPB I pvp I tal ly rpciistpr Is cleaf’pd. 

ll->l.TL,l 

J. rhe column counter is set to the character position 
in the source buffer at which scanning of the 
source statement begins. 

7— »IS0RSX 

2. 2. 2. 2.3 Identification of Source Statement 

If the TYPE subroutine is able to identify the source 
statement as a replacement statement* it will place the 
appropriate type number in the holder IBUF2C3} and exit. 
{See item 2. 2. 2. 2.3.1} If the TYPE subroutine is unable 
to identify the source statement as a replacement it will 
search the ISTN table in order to obtain a tape number. 

{See item 2. 2. 2. 2.3.2} 
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2. 2. 2. 2. 3.1 Replacement Statement 

The TYPE subroutine begins a scan of the source statement beginning 
with the 7th character from the beginning. The necessary and suffi- 
cient conditions for identifying the statement as a replacement is 
as follows: 

The statement must contain an sign not enclosed in paren - 

thesis which is not followed by a comma not enclosed U p r en - 
thesis. 


For purposes of scanning, the GETC subroutine is used to extract a 
single character from the source statement and place it in JCHAR. 

If the switch JBLANK is set to zero when a call is made to GETC, the 
space character, whose internal FORTRAN code = 46 is not treated as 
a significant character. Therefore given a source statement - 

D 0 1 0 I = 1 , 5 

the TYPE subroutine sees only the significant character and not the 
intervening spaces which causes it to appear as - 

D010I^1,5 

This ordinarily would be regarded as a statement in which - 
name = expression, 

except according to the previously stated rule for a replacement 
statement, the comma which is not enclosed by parentheses excludes 
the possibility of this being a replacement statement. 

Another special case occurs for the following statement: 

FORMAT 10HX=A(1,5) 

In this example TYPE encounters an sign which is followed by 

a comma which is enclosed in parentheses * Ordinarily it would 
appear to the TYPE subroutine as a 

name = expression 

type of statement wherein - 

1. The name FORMAT lOHX is il lega 1 since it is 10 characters 
long, and - 

2. the expression consists of an element of an array, A( 1 , 5) . 
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However 1 as a result of scanningn the TYPE subroutine 
encounters a numeric field terminated with an H • If 
the value of the numeric field is less than some arbi- 
trar ily large number I in TYPE it is 4D0> an assumption 
is made by TYPE that it has encountered a FORMAT state- 
ment with a Hollerith Field Specification. Therefore-i 
TYPE counts characters according to the number preceding 
the "H" and beginning with the character following the 
"H". 


In order to count characters-i the TYPE subroutine sets 
the switch J BLANK to 1. It then calls the GETC routine 
the number of times specified by the numeric field pre- 
ceding the "H" • Each time GETC is calledn the column 
counter is increased by 1 . Since -CJ BLANK! = li spaces 
in the fieldn following the "H" are regarded as signifi- 
cant characters . When the end of the Hollerith string 
is encountered! J6LANK is reset to Q and the column 
counter is positioned for the character following the 
Hollerith string . 

When slewing the Hollerith string-i the TYPE subroutine 
does not recognize the equal sign it encounters . There-^ 
fore! it will not erroneously regard a FORMAT statement 
as a replacement . 

2 .2 .2 .2 .2 .3 .2 Other Statements 

The TYPE subroutine attempts to identify statements other 
than replacements by searching the ISTN table . An entry 
in the ISTN table contains the name of a statement stored 
1 character to a word! the characters represented by the 
Internal FORTRAN code • The name of the statement is 
followed by the type number for the statement! and pre- 
ceded by a pointer to the start of the next entry in the 
ISTN table • If the space occupied by the ISTN table is 
regarded as a one dimensional array! the pointer to the 
start of the next table entry may be regarded as a sub- 
script with which to reference the element -Cor word! 
which is the start position of the next ISTN entry • If 
the name of a statement has K characters! the ISTN table 
entry has K•^2 elements -Cor words! • The 1st ISTN table 
entry is as follows : 

-CISTN-Cl!! = 12 pointer to next table entry i next 

entry begins at ISTN-C12! . 
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2~L3 

T?W 


D 

I 

n 

E name 

N 

S 

I 

0 

N 

0 type numberi type number is stored 
at {ISTNC1»-1. 

The 1st ISTN table entry occupies storage reserved for 
elements ISTN{1> through ISTN-C11>. The second ISTN 
entry begins at ISTN-C12}. 

The final ISTN table entry is for the end statement • 

It appears as follows: 

3m 

E 

N 

1 > 

32 = type number 

If the flag -CISPEO = 0 enabling PHASEA to process 
specification statementsi the entire ISTN table is 
searched in order to identify the source statement . 

If -CISPEO = 1 indicating that no subsequent specifi- 
cation statements will be processed-i the search of the 
ISTN table begins with the 1st entry containing a non- 
specification statement name. 

If the TYPE subroutine is able to identify a source 
statement as a result of an ISTN table search-i the type 
number is read from the last word of the matching entry i 
placed in IBUF2-C3}. An exit is made from TYPE . 

If the entry containing the END statement is encountered 
and no match is made-i an error flag is set by - 

1 IXl-i 

and an exit is made from the TYPE subroutine • 
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2. 2. 2. 3 PEflVS - The Equivalence Table Builder 

This routine is called by Phase A upon encountering an 
executable statement or the END line . EQUIVALENCE 
statementsi which have been savedi in a different formn 
in the buffer KEQVn are merged into equivalence classes 
and storedn in a shorthand form-i in the equivalence 
table KEQV • Each entry in KEQV is four words • A symbol 
table pointer-i followed by three words containing 
subscript values n if any . 

This routine has three logical parts or phases • In the 
first part it checks the subscripts f or val idityi and 
calculates a single value for the subscript-i if any . 

In the second part i all equivalenced variable or array 
parameters •Ccalled a chain! plus the single calculated 
value are moved into an intermediate table tIEQV by chain • 
Each entry in MEQV has two words i a pointer to the name 
in the symbol table-i and the single calculated value . 

In the third part i each chain is sorted by increasing 
increment sizei and the ordered chains are then moved 
to lEQV . Each entry in lEQV is two words and has the 
same f ormat as flEQV • 


KEQV 


Subscript Values if any 


riEQV 


Calculated Value 

lEQV {Sorted! 

1 
2 


SYilTAB Pointer 


SYflTAB Pointer 
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DO loop with induction 
variables ITEMPD = 
ITEMPC, ITEHP6,2 


C 
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48. Set symbol table entry 
to correct common block, 
if any. 

49. Multiple test is: 

ITEMP8 = 0 

.OR. 

ITEMP8 = ICOMFG 
.AND. 

1TEMP9 = 0 
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IDUMFG =>’ 

IDUM(ISYMX) 
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1TEMP6 
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ITEMF^ 
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50. DO loop to 35 with 
induction variables: 

1TEMP7=1TEMP7,. 
ITEMP5, 2. 

Jump if item been 
deleted to 35. 

51. Test is: 

MEQV(ITEMP6) # 
MEQV(1TEMP7) true 
means no. 

52. Test is: 

MEQV(ITEMP6+1) = 
MEQV(ITEMP7+1) true 
means yes. 

53. Print out names for: 
MEQV(ITEMP6) and 
MEQV(ITEMP7). 
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Jump to 31 to process 
more classes. 

Prepare to set up 
lEQV tables. 

Jump to 41 if class 
contains two or more 
names. 
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2 . 2 . 2 . 4 Subroutine PLABEL 

PLABEL is called by PHASEA to process the label 
field of an input statement. If the label 
field is blank, the routine returns immediately 
with ISORSX = 7. 

Otherwise, it uses the routine RDLABL to read 
the field. If the field contains a label, 
a check is made to see if this label is 
currently in the symbol table (SYMTAB) . If i 
is not, it is entered there by a call to STOki:;. 

If it is, a check is made to see if the label 

has been previously defined. If it has, an 

error is output and the routine exits with ILLABL = O 

and ISORSX = 7. 

Otherwise, ISNOL of the SYMTAB entry of this 
label is set to the current statement number, 
thus setting the label as defined. 

The routine then exits with ILLABL equal to 
the SYMTAB index of the label entry, ISORSX = 7 
(the next column to process), IBUF2(5) = the 
SYMTAB index for this label, and IBUF2(2) set 
to indicate a labelled statement (negative 
statement number) . 
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2.2.S-M-1 Subroutine RDLABL 

RDLABL is called to read a label. It reads the label and checks 
to see if it is a number. If it is notr it prints out diagnostic 
5*4. If the label is legal » RDLABL packs the label into JSYd and 
returns . 
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S-S»2«S Option Selection - Subroutine OPTIONS 

OPTIONS is the routine-i written in 1700 assembly language-, 
which processes option selection in 1700 Hass Storage 
Fortran. It iis entered from G0A« Upon entrance-. OPTIONS 
clears the option selection holders in the DATA block 
HR-. IKi IPn IA-. ILt IH-. IXLGOli backgrounds its input buffer 
and solicits input from the standard input device. If there 
was no OPT"^ cardi the standard options LPX are assumed 
and the option selection holders in the DATA block IP-. IL i 
and IXLGO are set ^0* If no options are listed on the 
^ OPT^ card-. OPTIONS solicits input from the input comment 
medium by outputting OPTIONS and waiting for a carriage 
return. 

Upon receipt of a carriage return or finding options on 
the OPT'^ cardi OPTIONS interrogates each character input. 

If it is recognizable ■CRtKiP-.A-.L iMiX> the corresponding 
holder^ js^garked selected Unrecognizable characters 

OPTIONS then returns to GOA. 
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2.2.2.h Subroutine OUTENT 

OUTEMT is the subroutine used to output a record to 
the scratch output device. If an error has occurred 
in the statementn it is changed to a CONTINUE and the 
error-in-statement switch -CIERR} is cleared. 

OUTENT calls subroutine lOPR {entry point WRITE! to 
perform the output. 
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2 .2 .3 .2 Subroutine ENDDO - The DO Loop Termination Routine 

ENDDO is called by PHASEA upon completion of processing 
of a labeled statement and by lOSPR to terminate DO 
loops and complete the LOOPT table . 

If there are no DO loops openi ENDDO exits • If the 
label of the current statement terminates the innermost 
open DOt an ENDDO entry is output and the LOOPT for this 
DO loop is completed • This DO entry is then erased 
from the LOOPT table IDO nesting! and the check of label 
vs. innermost DO is repeated • 

lilhen ENDDO encounters an open innermost DO which does 
not terminate at this statement label i the routine 
searches the rest of the LOOPT table to ascertain that 
no outer DO loops terminate here • If any doi an error 
is output and the erroneous entry is erased from LOOPT • 

If any DO loops have terminated at the current statement 
label-! ENDDO checks the statement associated with this 
label . If the statement is of a type illegal for DO 
termination an error is output and the statement changed 
to a CONTINUE. 


2. 2. 3. 3 Subroutine SAVEID 

SAVEID was written to allow the use of up to M7 characters 
of comments {copyright statement! on the source routine 
identification card which will be output in a format 
similar to Macro Assembler produced binary NAM blocks . 

The format of the binary NAM card includes up to ^7 
characters of comments preceded by a slash from the 
source routine identification card {PROGRAM-! SUBROUTINE-! 
FUNCTION-! or BLOCK DATA! on the binary NAM card . If 
no slash and no comments appear on the source card-i the 
binary NAM card will be punched entirely with blanks • 

If there is no slash-! but comments do appear on the 
card-! diagnostic will be issued-! and the binary NAM 

card will contain blanks • A continuation card may also 
be used. 
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2.3 


2 . 2.1 


2 . 3 . 1 . 1 


2 . 3 . 1.2 


General Pass 1 Routines 

Symbol Table Manipulating Routines 

SYMBOL 

To locate a name in the symbol table-i store the name in 
the three cell array-* JSYM • If the name is not a con- 
stant i pack it into JSYM-tlJ and JSYM{2> by calling CNVT . 
The name may be a statement label . If the name is an 
integer constant-* the constant's value should be in 
JSYM-Cl} and the constant should be in JSYM-C3> . 

If the name is a real constant-* the constant ' s value 
should be in JSYM-Cl} and JSYM-C2} and the constant 2525^^^ 
should be in JSYM-C3} . If the name is a double preci- 
sion constant-* the constant 's value should be in JSYM-Cl}-* 
JSYM-C2}-* and JSYM-C3}. The common variable JMODE should 
equal L for double precision constant . Issue the state- 
ment 


CALL SYMBOL 

Upon exit-* if the common variable ISYMO is zero-* the 
symbol is not in the table . If ISYMD is non-zero-* the 
COMMON variable ISYMX indexes the symbol entry-* that 
is-* each item in that symbol 's entry may be obtained as 

item name -CISYMX} 

If ISYMO is zero-* ISYMX points to the next available 
symbol table entry . There are two versions of SYMBOL-* 
as follows : 

Phase A: If SYMTAB paging is necessary-* only the current 

page is written on disk before being over laidi later 
pages are simply overlaid . SYMBOL accomplishes this by 
setting ISYMX negative before calling 6ETSYM after the 
current page has been written . 

Phase B : If it is known that the name is not in the 

symbol table-* SYMBOL may be called with ISYMX negative . 

In this case SYMBOL does not search the symbol table 
but returns with ISYMX pointing to the next available 
entry . 

Subroutine STORE 

Assume that JSYM-Cl}-* JSYM-C2}-* and JSYM-C3} are filled-* 
probably by 6ETF-* but possible by the programmer himself . 
Also assume that ISYMX is pointing to the next available 
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entry in the symbol table. SYflBOL will set ISYhX in 
this manner if an entry is not in the table. Then the 
symbol in JSYfl will be inserted into the symbol table. 
ISYMN {current size of symbol table} will be incremented. 
If j;jYi1{3} is 2^24J^ or 2525^^-. or if JHODE is L for 

double precision constants! ICLASS and ITYPE will be 
set. Issue the statement 

CALL STORE 

Thus! the normal sequence of events leading to an 
insertion in the symbol table is 

CALL 6ETF 

which then does 

CALL SYMBOL 

to see if the field is in the symbol table . Upon 
return from GETp! the calling program does 

CALL STORE 

to insert the field in the symbol table if it is not 
in it already. 

2. 3. 1.3 Subroutine GETSYM 

GETSYM insures that the symbol table page requested by 
ISYMX is in core! updates the current symbol table page 
holder {ISYflPO if necessary! and adjusts ISYMX to the 
in-core subscript of the desired symbol table entry 
{ISYMX = ISYMX - ISYMP}. 

There are five versions of GETSYM! distinguished as 
follows : 

Phases A and B : 

If ISYMX is positive on entry and paging is necessary! 
the current symbol table page is written on disk before 
the dasired page is read . If ISYMX is negative! it is 
set positive and the current symbol table page is not 
saved . 

The symbol table page size is IbO words . The current 
ISTABX page {Tb words} is read and written along with 
the SYMTAB page! therefore eleven sectors are read and 
written for each page . 

Phase C and Phase D/E 2. OB version . 

The symbol table page size is 2400 words . When reading 
and writing the large page every eleventh sector {for- 
merly an ISTABX page} is skipped . The current symbol 
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table page is always saved on disk before a new 
page is read. 

Phase D local 1, 5. DA version: 

This version reads and writes the compressed symbol 
table with a page size of 1000 words (see Assembler 
Output Phase, section 5.2). The current symbol table 
page is always saved. 

Phase D local 2, 2 ‘DA version: 

This version reads the normal symbol table with a 
page size of 480 words. Every eleventh disk sector 
is skipped. The current symbol table page is never 
saved. 

Phase E, 2. DA version; 

The symbol table page size is 480 words . Every eleventh 
disk sector is skipped. The current symbol table 
page is always saved. 

2. 3. 1. 4 Subroutine CNVT 

CNVT packs a six-character variable name into two 
words for storage in the symbol table . Only alphanu- 
meric characters and blanks can be packed. CNVT 
packs the leftmost three characters into the first 
word of JSYM and the rightmost three characters into 
the second word as follows ; 

Let X, y , z, a, b, and c be the internal Fortran codes 
for X, Y , Z, A, B, and C. Then the neune XYZABC is 
stored as: 

JSYM (1) = 1521X + 39y + z 
JSYM (2) = 1521a + 39b + c 

Blanks , which are 46 in internal Fprtran code , are 
charged to 38 before packing. 

2 . 3 . 1. 5 Subroutine SYMSCN 

SYMSCN gets the entry following the current entry from 
the symbol table. Upon entrance , ISYMX = 0 requests 
the first symbol table entry , and ISYMX = (an in-core 
symbol table subscript) requests the entry (ISYMX + 

ISYMP + ISYMFL) . Upon return, ISYMP = 1 says there are 
no more entries . GETSYM is called just before return. 
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Input parameters: ISYMX (in-core subscript) , ISYMP 

set to current entry. 

Output parameters: ISYMX (in-core subscript), ISYMP 

updated to next entry. 

There are four versions of SYMSCN. The phase D 
local 1 S. DA version references the compressed symbol 
table (see Assembly Output Phase, 5.2). The other 
three versions differ only in the dimension of th^, 
array SYMTAB in common. 
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KSVM (I) = 

le.-fi' OiArtycieir 

jsy/^cx) 


W/if W 


\KSyM(0)=32 


= V/ 




X -^3 


J5Y/ni)=3? 



Mi) 


KsyM <i)*i-s-2i + jsyna)*^ -/-/fjy/Vft) 

jsyM u) ^ rsrM(X)*JSii ^ Ks/yi(3)*3‘i -^Jsyyuj) 
rs YM (3) ' 0 


RETUKU 
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?> 3‘2 Field Processing Routines 

Subroutine GETF 

GETF is the subroutine which extracts a field from the source 
input in ISORS* . The column at which to start is given in 
ISORSX* . If the field is alphabetic {first character is A-Z>i 
the field is placed left- justified in JSVn and jnODE set to 
7 . JESUT is set to indicate the implicit type of the name 
{1 = integer! 2 = real} . If the field is a f ixedi floating 
point! or double precision floating point constant! it is 
converted and placed in JSYH. JHODE is set to indicate the 
mode of the constant • Integer constants are placed in JSYNIl} 
converted as if they were decimal unless OCT ^ D upon en- 
trance to GETF ! or if the constant is preceded by $ • If 
OCT ^ Oi an integer constant is considered octal and non- 
integer fields are considered errors • OCT is set to zero 
upon exit from GETF . If the constant is preceded by $! the 
constant is considered hexadecimal and the only permissible 
digits are 0-^! A-F . For integer constants: JSYI1C2} = D! 

JSYMC3} = 2M2M][,b • Real constants are placed in JSYMCl} and 
JSYH{?} and JSYf1{3> is set to ZSZSiy • Double precision float- 
ing point constants are placed in JSYH{1>! JSYN{2}! and 
JSYri{3} and common var iables JflODE and JFLOT are set to b and 
3 respectively . 

If the field is null i JflODE is set = 0. 

SYMBOL is called for alphabetic or numeric fields if NERR = □ 
upon entrance to GETF. 

The field terminator is placed in JTERM . 

JTERM settings for 3 character logical operators are : 

.AND. = AD 
.NOT. = NT 

Error messages will be printed as errors are encountered if 
NERR = 0 upon entrance to GETF . 

NERR is set to zero upon exit from GETF . 

JERR = 0 - no error encountered in field switch 
JERR / 0 - error encountered 


*If AND {IFLAGS!$10} is not zeron input is in IBUF2 
{IBUF2X}. In 2. DA! there are two versions of GETF . 
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GETF switches 


JESUT 

CO 

ns 

tant analysis indicator 


0 

di 

gits only encountered 


1 

de 

cimal point encountered 


2 

E 

or D encountered 


3 

ex 

ponent is + 


H 

ex 

ponent is - 

JFLOT 

mo 

de 

of constant 


D 

- 

integer 


? - real 

3 - double precision 
character count 

overflow indicator for constant conversion 

character being looked at 

fraction count 

exponent count 

JSYtl character indicator 

JSYfl word count 


JOCHAR 

JOl 

JCHAR 

JE 

JEl 

JCT 

JCTl 


If an error is encountered and NERR = an error 
is output and depending on the severity of errorn 
be set ^ D. If JERR ^ D upon exit from GETF-i the 
of JSYM and JflODE are meaningless. NERR is set = 
exit from GETF. 


message 
JERR may 
contents 
0 upon 


INPUT Parameters 


OCT 

convert integer constant as 

octal 


If field is not an octal integer i 


error is assumed. 


ISORSX 

column of input at which to 

start 

ISORS 

source input table 


NERR 

^ 0 says don't print errors 

T don't 


call SYMBOL. 


if OCTj^O. 
an 


OUTPUT Parameters 

JSYM 3 word holder for field 

JTERM 1 word holder for field terminator 

JMODE mode of JSYM 

0 = null 
7 = alphabetic 

3 = integer - only JSYMCII is significant 
S = real - JSYMIII and -CJSYM{2> contain 
value 

L = double precision - JSYM-Cllji dSYM{2>n 
JSYM-C3> contain value 
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ISORSX 

JERR 

JESUT 


updated to reflect start of next field 
or end of input 
error switch 

for jnODE = 2 % implicit type of JSYfl 

1 = integer 

2 = real 


1700 INTERNAL CODE 


CHARACTER CODE -CDecimall 

digits O-T 0-T 

letters A-Z 10-3S 


dollar sign $ 3b 

period 37 

plus sign + 3fl 

minus sign - 3^ 

equal sign = MO 

left parenthesis { . Ml 

right parenthesis > 42 

comma 43 

slash / 44 

asterisk * 45 

blank ^ 4b 

End of statement ^ 47 

single quote ’ 4fl 

2. 3. 2. 2 Subroutine GETC 


GETC gets one character from ISORS . The column to get is 
given in ISORSX . If JBLANK is zero upon entrance to GETCi 
blank characters are skipped • If AND IIFLAGSi$10> is not 
zero 1 the character is from IBUF2 CIBUF2X>. In 2 .OA there 
are two versions . JBLANK is not initialized upon exit . 

INPUT Parameters 


ISORSX 

ISORS 

JBLANK 


card column at which to start 
source input table 

present blanks switch . 0 = skip blanks i 

/ 0 - present blanks 
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OUTPUT Parameters 

JCHAR next significant character fright 

justified> 

ISORSX updated 

?.3.?.3 GPUT 

GPUT packs the character in JCHAR into the three word buf- 
fer JSYH into the fl bit byte signaled by the current setting 
of JCTl {character numberl-. 

The characters are packed two per word. 
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Function IGETCF 

IGETCF is used by subroutine GNST to get a specific character from 
an input string. 

Input parameters: 

IMAGE - location of start of string 
ICOLMN - character within string 
Subroutine STCHAR 

STCHAR is used by subroutine GNST to store an eight bit character 
into a character string. 

Input parameters: 

IMAGE “ location of start of string 
ICOLMN - character within string 
ICHARC - character to store 
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?.3.3 Special Field Handling Routines 

2. 3. 3.1 CONSUB 

Given an element of an arrayi the CONSUB subroutine is used 
to compute the increment from the subscripts of the element 
in order to reference the location of the element in the 
array. The CONSUB subroutine requires that subscripts be 
integer constants. It computes the nth element of an array. 

Given the array defined by 

DIHENSION A 

and the element 

A -CI1-, J1-, Kl> 

the increment is computed and recorded in IVCFLG as follows : 

IVCFLG = {K1-1>*I« J+-CJ1-1>*I+I1 

The resulting value in IVCFLG is such that 

A-CIl-i Jl-i Kll = the IVCFLGth element in the array 

A-CIn Ji Kl . The original dimensions of the array A 

-CIt J 1 K} are obtained from an entry in the 1ST AB table . 

2 .3 .3 .1 .1 Errors 

The CONSUB subroutine gives diagnostics for the following 
errors: 

1. An element with no subscripts-i 

2 . an element with more subscripts than the array of 
which it is a member has dimensions! • 

3. an element with a subscript which exceeds the value 
of the corresponding dimension for the array of 
which it is a member^ 

M . an element with a subscript which is something other 
than an integer! and 

S . a format error in which the subscripts are not sep- 
arated by commas and/or not enclosed in parentheses. 

Errors l! 2! H & S will cause CONSUB to terminate operation . 
Following the error indication! the holder IVCFLG is set to 
zero! and an exit is made from CONSUB . Error 3 will not 
cause the CONSUB operation to terminate following the error 
indication. 
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2. 3. 3. 2 CFIVOC - Checks for Integer Variable or Integer Constant 

CFIVOC reads the next field in ISORS. If the field is an integer 
variable or constant, the field is stored in the symbol table (if 
necessary), the type set to integer and the class set appropriately. 
IVCFLG is set to signal the type of field 

0 = not integer variable or constant 

1 = constant 

2 == variable 

2. 3. 3. 3 CKIVC -Checks for Integer Variable or Constants and Provides Diagnostics 

CKIVC calls CFIVOC to read next ISORS field. If the field is neither 
an integer variable or an integer constant (IVCFLG = 0), diagnostic 63 
is output. 

2. 3. 3.4 CKNAME - Checks for Integer Name 

CKNAME calls CFIVOC to read the next ISORS field. If the field is not 
an integer name (IVCFLG = 2), diagnostic 64 is output. 




CA 121*1 


hhT- 


2 


3 


4 


5 


















CONTROL DATA CORPORATION 


DIVISION 


DOCUMENT CLASS iiTT PAGE NO 

PRODUCT NAME 170 0 MASS STORAGE FO RTRAN 

PRODUCT MODEL NO. COO 5 V«g» 0 MACHINE SERIES .IIOCI 


2-mt, 


2.3.4 Diagnostic Handling Routine 

2. 3. 4.1 Subroutine DIAG 

DIAG is a multiphase subroutine which outputs error 
diagnostics. The error message output is of the form: 
*C E,S xxxxxx 

Where C is F or N for fatal or non-fatal 
E is the error number 
S is the offending statement number 
xxxxxx are six characters from the source 
input buffer surrounding the current 
setting of ISORSX 

The input to DIAG is one packed parameter giving 
the error number in bits 11-0 and flags in bits 
14, 13, 12. 

The flags are: 

Bit 14 0 = print statement number 

1 = don't print statement number 

Bit 13 0 = fatal error 

1 = non-fatal error 

Bit 12 0 = Print ISORS characters 

1 = Don't print ISORS characters 

If this is a fatal error, lERR is set ^0. 

If DIAG is entered with JMODE = 4..(errpr mode in 
GETF) , no error is output and JMODE is set = 0. 

This is to minimize the output of redundant errors. 

If this is a fatal error, the "X" option flag 
IXLGO is cleared and bit 3 is set in XFLAGS. 
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2 . 3. 4. 2 Subroutine CONV 

CONV converts a binary Integer to externa 1 code (ASCII) and puts 
the result in an output buffer, one character per word. Its input 
parameters are: 

IX I number to convert 

1X2 output buffer - six words long 

CONV is coded in assembler. The version of CONV 
used in PHASE A cannot convert negative numbers^ 
while the version used in PHASE E can convert any 
binary integer. 
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2. 3. 4. 3 Subroutine PACK 

PACK packs a buffer which comes to it one character 
per word into the form of two characters per word. 

Input parameters; 

IXl Location of buffer 

1X2 number of words to pack 

2. 3. 4. 4 Subroutine PUNT 

PUNT is called when a catastrophic table overflow 
occurs in the compiler. It outputs error diagnostic 
100 and calls SKIPIT. The Phase A version slews the 
input to an END card before calling SKIPIT. 

2. 3. 4. 5 Subroutine PRNTNM 

PRNTNM is called by subroutine PEQVS when an illegal 
equivalence chain is encountered. PRNTNM converts the 
name of the illegal variable to external code (ASCII) 
and outputs it through the use of subroutine lOPR 
(entry point WRITE) . 
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2. 3.4.6 Subroutine lOPR 

This assembly-language routine performs all I/O for the com- 
piler. In order to optimize core and disk use, there is 
a separate version of lOPR for each phase of each {2.0A 
and 2. DBl compiler ; but all versions share the following 
functional description. 

Entry points 

lOPR is the entry called by GO at the start of each phase. 

It allocates the disc scratch area, initializes pointers, 
and begins input. 

READ and WRITE perform both unit record and mass storage 
I/O. Unit record I/O in phase A is buffered; records on 
the scratch files are packed by WRITE and unpacked by READ. 

RESET is available in phase D/E; it performs a logical 
"rewind" of a scratch file. 

EXIT issues an EXIT request to MSOS. 

Disc allocation 

The speed of the compiler is highly dependent on the place- 
ment of its files within the MSOS-allotted disk scratch area. 
This area is allocated starting at the first sector of the 
first cylinder beyond the current top of the load-and-go 
file; seek operations are minimized by never allowing a 
file to "break" between two cylinders. 

The first portion of this area is allocated for local files. 
(Even though the present phase may not have locals, this 
area must be stepped over in order to find the symbol table 
and scratch files.) The partitioning of this area is 
"customized" for each phase, generally leaving each file 
several sectors more than it requires to allow for later 
expansion. 

Following the local files, an area is assigned to the 
symbol table. Since the table is organized in eleven- 
sector "pages", this area starts lln sectors from the 
bottom of a cylinder and overlaps onto the next cylinder. 

The disk allocation is such that only programs with a 
very large number of symbols will use any of the SYMTAB 
pages on the next cylinder, and so that the most-used 
local files will share the "prime" SYMTAB cylinder. 
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After the symbol tabic, the remainder of the scratch area 
is .jvailable for the two scratch files. These files, like 
the symbol table, are organized in "pages" of several 
sectors; in order to minimize length of seeks, pages of 
file 1 are interleaved with pages of file 2. No effort 
is made to keep scratch pages from crossing cylinder 
boundaries, since the "broken" page would be referred to 
only once per phase. 

Scratch file packing 

To minimize disk usage, the two scratch files are packed 
into streams of logical records without regard for sector 
boundaries. (The first word of each logical record i on- 
tains the total record length.) The files are then broken 
up into "pages" of several sectors; a "page" being as much 
of the file as will fit into core. (In several cases, a 
phase keeps only part of a page in core at a time; the 
page size is chosen for maximum efficiency over all four 
phases of a compiler version.) A call to READ causes 
copying of a logical record from the unpacking area to 
the user-designated address; if the end of the unpacking 
area is reached before the entire record is moved, then 
the next page of the input file is read into the unpack- 
ing area and the copying proceeds. A call to WRITE simil- 
arly loads the output packing area, which is similarly 
emptied when full. (A special call is provided to force 
the output onto disk at the end of each phase.) 

It is important to note that on scratch-file I/O, the logical 
record length is controlled only by word 1 of the record; 

The record- length parameter of the call to READ or WRITE 
is ignored. 

Unit record buffering 

Phase A unit record I/O. . . source statement input and listing . . . 
is buffered, so that phase A execution time is overlapped 
as much as possible . Space is provided in the phase A 
I OPR to hold one line of input and one or two lines of out- 
put; each line is associated with an FREAD or FWRITE request. 
When the I OPR entry is called, at the start of a phase , it 
activates the FREAD request that is to fill the input buffer. 
Thereafter, a call to READ will : (1) wait until the request 

is unthreaded; (2) copy the record just read, from the buffer 
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to the user's area; (3) reissue the FREAD request. 

Similarly, a call to WRITE waits for a buffer to be 
available, fills it, issues an FWRITE request for it, 
and returns. 

The READ routine does not reissue the FREAD request if 
the buffer contains an END or MON card. The buffer is 
blanked before the request is issued. The requested 
record length is 41 words so that, regardless of actual 
record length, the operating system will store the actual 
last-word-address-plus-one outside the area to be pro- 
cessed by Fortran, 

Page ejection 

If the list output device is not a teletype or paper 
tape punch, lOPR issues a page-eject control ($3120) after 
each 60 lines of output. The maximum and current number 
of lines per page are held in labelled common and are set 
by the phase A block data subprogram and subroutine PHASEA, 
respectively. PHASEA is responsible for issuing page ejects 
before the source and assembly listings. 
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?.M STATEMENT SPECIFIC PHASEA ROUTINES 

2.M.1 DIMENSION Statements - Subroutine DIMPR 

Subroutine DIMPR processes dimension information. It will 
be called directly by PHASE A to process DIMENSION state” 
ments or as an auxiliary routine when processing COMMON 
or Type statements. 

Input to DIMPR is the ISORS image of the statement being 
processed and the current setting of ISORSX within this 
buffer. 

DIMPR builds entries in the symbol table -CSYMTAB}-! defin- 
ing the arrays it processes. Entries are set to dimensioned 
arrays CICLASS = li IDIM = no. dimensions! ISTABX = index 
into 1ST AB to get dimensions}. The dimens ions are entered 
in the ISTAB table. If a COMMON statement is being pro- 
cessed! ICOM {common block indicator} and ICOMTX {thread of 
var iables and arrays in common block} are set in the symbol 
table and ICOMBX in the common table {ICOMT} is updated to 
reflect the current thread of the chain of variables and 
arrays in a specific common block . 

If a Type statement is being processed! the symbol table en- 
try is set to the appropriate type {ITYPE = 1 for INTEGER 
or SINGLE! 2 for REAL! 3 for DOUBLE! ISNGL = 1 for SINGLE}. 

Throughout its processing! DIMPR checks the syntax of the 
statement it is analyzing and outputs diagnostics if errors 
are encountered • It also checks for conflicting information! 
and outputs diagnostics if such information is encountered . 
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COMMON Statements are processed by the routine COMNPR* The common 
block is entered in ICOMTj if it is not already there. DIMFR is 
called. DIMPR returns to COMNPR to search for another common block* 
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2.4.3 TYPE Statements - Subroutine TYPEPR 

The routine TYPEPR is entered. This routine, in turn, calls 
DIMPR. DIMPR enters the symbols, with their appropriate type, 
into the symbol table. 
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2.'^.^ BYTE * E(2UIVALENCE Statements - Subroutine BYEflPR 

The BYEQPR subroutine is used to process BYTE, SIGNED BYTE and 
EQUIVALENCE statements. Upon entry to BYEQPR, the type number for 
the statement being processed is contained in IBUF2(3) as follows: 

(IBUF2(3)) = 8 for BYTE statement. 

(IBUF2(3)) = 9 for SIGNED BYTE statement. 

(IBUF2(3)) = 10 for EQUIVALENCE statement. 

2.4.4. 1 KEQV Table 

BYEQPR generates entries for the KEQV table as a result of pi 
cessing either of the three statements previously mentioned. 

Prior to entering BYEQPR, KEQVX contains the word length for the 
information in KEQV, and KEQVS contains the storage capacity for 
KEQV. The KEQV table along with KEQVX are initially cleared to 
zero as part of the initialization procedure of the PHASE 1 sub- 
routine. 

LEQVX is set to the value in KEQVX imaediately upon entry to BYEQPR. 
Entries are made to KEQV using the storage index LEQVX. There are 
four words per entry to KEQV. For each entry made to KEQV, LEQVX 
is increased by the number of words per entry -- 

(LEQVX) -h 4 — LEQVX. 

Entries made to the KEQV table have the following format: 

WORDl: pointer to symbol table entry containing name of variable 

W0RD2: 1st subscript or 0 if subscript not specified 

W0RD3: 2nd subscript or 0 if subscript not specified 

W0RD4: 3rd subscript or 0 if subscript not specified 

Consecutive entries made to KEQV correspond to related elements in 
the source statement. (Refer to item 2. 4.4. 2 for an EQUIVALENCE 
statement and to item 2. 4.4. 3 for a BYTE statement.) The last of 
these entries is followed by an end-of-chain mark which is a word 
containing a value of - 1 . When an entry is made to KEQV to indicate 
the end of chain KEQVX is increased by the number of words added to 
the KEQV table by - 

(LEQVX) + 1 1^ KEQVX. 

When processing begins and the next chain of related elements in 
the source statement, LEQVX will be set to the current word length of 
KEQV information by - 

(KEQVX)— LEQVX. 
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2 . 4 . 4. 2 


2.4. 4. 2. I 


Upon exit from BYEQPR, KEQVX will contain the word length of infor- 
mation stored in the KEQV table. 

Processing the EQUIVALENCE Statement 


Equivalence statements of the form: 


EQUIVALENCE 


1 f ^2 ’ • • • > 




(bi,b2>»**>bi).,,,« 




are processed as follows: 


A chain of related elements areenclosed in parentheses. The chains 
separated by commas. The last chain is followed by an EOS. Within 
the chain, the elements are separated by commas. A four word entry 
is made to KEQV in the manner described by 2.4.4. 1 for each element 
in a chain. The last entry is followed by an end-of-chain mark. The 
1st entry made for the next chain follows the end-of-chain mark for 
the preceding entry, etc. A chain must contain at least 2 elements. 


Processing Errors for EQUIVALENCE Statements 

Diagnostics will be given for the following errors while processing 
EQUIVALENCE statements: 

1. A chain is not enc losed in parenthesis. 

2. An element is not alphanumeric. 

3. An element within a chain is a Iready in the symbol table, 
and either - 

a. classed as something other than a variable name, or - 

b. the name appears either on a RELATIVE or an EXTERNAL 
statement. 

4. An element has more than three subscripts. 

5. An element has a subscript ^0. 

6. An element has a non-integer subscript. 

7. The subscripts of an element are not separated by commas. 

8. The subscripts are not enclosed in parentheses. 

9. A chain contains fewer than tw elements. 

After the error diagnostic is printed, the entries made to the 
KEQV table are erased in the following manner: 

Using the value in KEQVX to locate the starting point, each KEQV 
word is set to zero by - 

0 ► KEQV( KEQVX), 

Q , — ^ KEQV(KEQVX+1), 


and 0 


KEQV(LEQVX-l) 
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2.4.4. 3 


Once these entries are erased, BYEQPR will slew the remaining portion 
of the chain. While slewing, an exit will be made from BYEQPR when 
it encounters in the source buffer, either an EOS character or a 
right parenthesis followed by an EOS. If, while slewing, BYEQPR 
encounters a right parenthesis followed by a comma, it will proceed 
to process the next field. 


Processing BYTE Statements 

BYTE or SIGNED BYTE statements of the form: 


I 


BYTE 
I SIGNED BYTE 


^ » b j j (c d ) » . . • * (a^ , , (c <i^ ) ) 


are processed as follows: 

For each byte name processed, two entries are made into the KEQV 
table, each in the manner described by item 2.4.4. 1. The 1st entry 
is made for the byte name a^ followed by the entry for the second 
variable b . . This entry is followed by an end-of-chain mark of "-1". 
The b, variable may or may not be subscripted. However, the a. 
variable must not be subscripted. Therefore, the 2nd, 3rd and 4th 
words of the KEQV entry for a^ must contail zeros. 

If (c^,b^(c^=d^)) 

may be regarded as a chain, the chain of the BYTE or SIGNED BYTE 
statement must be separated by commas and the last followed by an 
EOS. 

The byte limits c^ and d^ must both be integer constants and maintain 
the relationship - 

15 > > d^ > 0. 

An indicator is set in the symbol table entry containing the name 

a^ to show that it is a byte name by either - 

a. 1 ► IPART(ISYMX) if a. is not a signed byte, or - 

b. 2 — ► IPART(ISYMX) if is a signed byte. 

The byte limits are recorded in the symbol table entry as follows: 

1. c — EP-IPARTLCISYMX), and - 

2. dT— fr'lPARTRClSYMX). 
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2,4. 4. 3.1 Processing Errors for BYTE and SIGNED BYTE Statements 

Diagnostics will be given for the following errors while processing 
BYTE and SIGNED BYTE statements: 

1* A chain (as defined in item 2. 4.4.3) is not enclosed in 
parenthesis. 

An element) either a^ or b. is not alphanumeric. 

Some byte name a^ appears in the symbol table either - 

a* typed as something other than an integer variable, 

b. indicated to be a dummy variable, or - 

c. previously specified as a byte. 

The byte name a^ is subscripted. 

The second variable b. is not alphanumeric. 

The second variable b^ has more than three subscripts. 

The second variable b. has a non- integer subscript. 

The second variable b^ has a subscript _ 0. 

The subscripts for b. are not enclosed within parentheses. 
Either of the byte limits c^ or d^ is not an integer constant 
The byte limits c^ and d^ are not enclosed in parentheses 
and/or the limits c^ and d^ are separated by something 
other than equal sign. 

The byte limits c^ and d^ do not satisfy the condition - 
15 > > 0. 

Following the diagnostic output, the procedure followed for errors 
1-11 is the same as the procedure described in item 2. 4. 4. 2.1 con- 
cerning errors in EQUIVALENCE statements. After printing the diag- 
nostic, the procedure for error 12 is to substitute a 15 for cj^ and 
a 0 for d^ and proceed as if no error had occurred. 
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2.4.5 SUBROUTINE or FUNCTION Statement - Subroutine SUBPPR 

SUBPPR processes SUBROUTINE or FUNCTION statements and is called 
directly by PHASE A Tt sets a flag to distinguish between a 
subroutine and a function. (2 = function, 3 = subroutine.) 

The next field is checked to see if it is a name (JMODE = 2). The 
name is checked for legality. If legal, it is put in the symbol 
table. If not, a diagnostic is printed. The terminator is checked. 
If not a left parenthesis, SUBPPR returns to PHASE A If left 
parenthesis, fields are checked until a right parenthesis is 
found. Each name encountered is checked for legality and entered 
in the symbol table. The symbol table pointer goes to output 
buffer. 
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2.4.b DATA Statements - Subroutine DATAPR 

The DATAPR subroutine is used to' process DATA statements. 
Intermediate language will ba produced in the output 
buffer for the names and constants which appear ir. the 
source statement. The output buffer is named IBUF2. 

The tally register that holds the word count for the 
information placed in the output buffer is IBUF2X. 

IBUF2X is set to an initial value prior to entering the 
DATAPR subroutine. Intermediate language generated for 
each member of a name list in the source statement is 
inserted in the output buffer beginning at 

IBUF2-CIBUF2X>. 

The tally register IBUF2X is increased by the number of 
words of intermediate language generated for the member 
being processed . Upon exit from DATAPR i IBUF2X contains 
the word length of the output entry . 

2.M.L.1 Processing Name List 

The DATAPR subroutine calls the GETF subroutine to 
extract a member of the name list from the source 
statement . A member of the name list must be alpha- 
numeric . If the name does not appear in the symbol 
table-i it is recorded therein by a call to the STORE 
subroutine . If the name is untypedn an indicator is 
set in the symbol table entry to the type number for 
the name: 

-CJESlilTI -> ITYPEIISYflX} 

where JEWST is set as a result of the call to GETF . 
Another indicator is set in the symbol table entry to 
show that this name appeared on a data statement : 

1 IDATAS€ISYf1X> 

If the symbol is unclassif iedn the indicator in the 
symbol table entry is set to show that this symbol is 
classified as a variable name: 

I ICLASSCISYtlX} 

If the entry containing this name indicates that the name 
is classif ied-i it must be classif ied as a variable name. 
The var iable may not be used as a byten a dummy var iable-i 
or variable assigned to blank common . 

If the name is an element of an array i a call is made 
to the CONSUB routine in order to compute the increment 
from the subscripts of the element . Upon return from 


CA 13S-1 RCV 10-67 
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CONSUBn the value in IVCFLG indicates that the element 
is the IVCFLGth member of the array • If each element 
of the array occupies one storage celli 

CIVCFL6> - 1 

is the increment in words which must be added to the 
base address of the array in order to reference the 
element in the array- Each element of the array occupies 
one storage cell if either - 

1- The name is typed as an integern or 
2. the ASA option has been chosen and the name 
is typed as a single. 

In other words 

either {ITYPEIISYUXII = li or -CIK> t Q and 
{ISNGL-CISYflX}} D- 

If each element of the array occupies 2 storage cells - 
-CIVCFLG}*2-2 

is the increment in words which must be added to the 
base address of the array in order to reference the 
element in the array- Each element of the array occu- 
pies 2 storage cells if either - 

1- The name is typed as reali or 

2- the ASA option is chosen but the integer 
element is not typed as a SINGLE- 

In other words - 

ITYPE-CISYMX} = 2 or IITYPEIISYUXI = 1 and either 
-CIKI = 0i or -CIO 0 and -CISNGL-CISYnXJI = 0 

If each element of the array occupies 3 storage cells - 

-CIVCFLG}*3-3 

is the increment in words which must be added to the base 
address of the array in order to ref erence the element 
in the array - Each element of the array occupies 3 storage 
cells if it is double precision regardless of the ASA 
option. 

The members of the list of names must be separated by 
commas and the last name in the list must be followed 
by a slash - When DATAPR encounters the slashi it ter- 
minates processing the 1 ist of names and proceeds to 
process the list of constants - {Refer to item 2 - 4 - b - 2> 
Members of the name list may be variables! array elements-! 
arrays-i and implied DO ' s - When an array name is found-i 
it is reduced into a series of array elements - When an 
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implied DO is analyzed-i a series of array elements is 
also generated* 

2.M*fci.l.l Intermediate Language Generated as a Result of Processing 
the Name List 

The starting position in IBUF2 of the intermediate 
language is recorded in ITEflPl prior to processing the 
1st name in the list* As each member of the list of 
names is processed! the following intermediate language 
is generated: 

lilORD l: {IBUF2{IBUF2X}> = pointer to the name in the 

symbol table. ' 

WORD 2: -CIBUF2-CIBUF2X+1» = 

1* 0 if the variable is not an element of an array-i 

2 . {IVCFL6>-1 if the variable is an element of an 
array where each element of the array occupies 

1 storage celli 

3* IVCFLG*2-2 if the variable is an element of an 
array where each element of the array occupies 

2 storage cells-i and 

M* IVCFLG*3-3 if the var iable is an element of an 
array where each element of the array occupies 

3 storage cells * 

WORD 3 : {IBUF2-CIBUF2X+2>} = the number of storage cells 

the variable occupies 
{according to its type} * 

The tally register is increased by the number of words 
of intermediate language to be generated for this name 

{IBUF2X}+2+{IBUF2{IBUF2X + 2}> IBUF2X 

When the DATAPR subroutine encounters a slash indicating 
the end of the name 1 ist i an end of output mark is 
generated in the intermediate language buffer by 

-1 -» IBUF2{IBUF2X> 

2.M.L.1.2 Error Checking While Processing Name List 

Diagnostics will be given for the following variables : 

1* A member of the name list is not alphanumer ic * 

2* A member of a name list appears in the symbol 

table as something other than a class 1 variable * 
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2.M.b.2 


3- The member of the name list appears in the 

symbol tablen but an indicator is set to show 
this symbol is a byte • 

M . The member of the name list appears in the 

symbol tablen but an indicator is set to show 
this symbol is either in numbered common or 
used as a dummy variable • 

S . Either the members of the name list are not 
separated from each other by commasn or the 
final member in the list is not f ol lowed by 
a slash. 


Errors 1 and S will cause processing of the source 
statement to be terminated by an exit from DATAPR • 

For the remaining errorsi processing of the source 
statement is resumed following the output of the error 
indication- 


processing Constant List 

In a DATA statement! there must be a one to one cor- 
respondence between the members of the constant list 
and the members of the preceding name list. The members 
of the constant list may be numeric and literal . A 
1 iteral constant must be contained by single quotes . 
Numeric constants may be double-i real n or integer and 
may have a leading algebraic sign of "+" or If 

the value of the constant is to be assigned to consecu- 
tive variables in the preceding name listn it may be 
preceded by a repeat count equal to the number of times 
it is to be used . The repeat count for the constant 
must be an integer -i and it must be separated from the 
constant by an asterisk . In order to comply with the 
one to one correspondence rule as stated aboven the 
following condition must be satisfied when a member of 
a constant list is preceded by a repeat count : 

C+RC=V 

where 

1. C represents the number of constants in the 
list without repeat countsn 

2 . RC represents the sum of the repeat counts 
occurr ing in the constant listn and 

3 . V represents the number of variables in the 
preceding name list . 

Uhen using 1 iteral constants-i the number of characters 
must be taken into consideration . If the variable type 
is : 
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Single or Integer it holds 2 characters 

Real it holds ^ characters 

Double Precision it holds L characters 

Trailing blanks are used to fill a variable entry that 
has been started and an end of literal quote is en- 
countered! that is: 

D is a double precision variable. 

DATA D/'ABCV 

The variable D will be initialized as if the DATA 
statement were: 

DATA D/’ABCbbbV b = blanks 

Since a numeric constant may be double precision! real 
or integer ! it must agree in type with the variable in 
the preceding name list to which it is assigned . 

The members of the constant list must be separ ated from 
each other by commas . The final member of the list must 
be followed by a slash which is followed by either a 
comma or an EOS • If the list terminates with a slash 
and an EOS! processing of DATA statement terminates when 
processing of the current constant 1 ist terminates . If 
the list terminates with a slash and a comma! DATAPR 
proceeds to process the list of names which follow in 
the manner describe by item 2 . M . b.l . 

2 . M . b . 2 . 1 Completing the Intermediate Language in the Output Buffer 

The tally register IBUF2X is set to the value recorded 
in ITEMPl pr ior to processing the 1 ist of names preceding 
the list of constants . {See item 2 . M . b • 1 • 1> The DATAPR 
subroutine calls 6ETF to extract a member of the list 
of constants from the source buffer • Pr ior to calling 
6ETF! the repeat ICOUNT is set to 1. Upon return from 
GETF ! one of the following conditions has occurred : 

CONDITION 1 : The operand is not preceded by a repeat 

count! or a quote! or a leading algebraic 
sign . Upon return from GETF - 

JTERH = comma! slash! or EOS 
JMODE = 3 f or integer constant! S for 
real constant and b for double 
precision constant 

JSYH{1} = value of integer constant 
JSVncii and JSYH{2> = value of real constant 
JSYN{1>! JSYM{2> and JSYf1{3> = value of 
double precision constant 
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The numeric constant and 

the 

name from 

the 

preceding 

list to which the constant is 

assigned 

must 

agree in 

type such that - 





CONSTANT 

jnODE 



IBUF2{IBUF2X+2> 

double precision 

L 

agrees 

with 

3 

real 

S 

agrees 

with 

2 

integer 

3 

agrees 

with 

1 


The constants are entered into the intermediate language by - 


integer JSYn-Cl>-> IBUF2-CIBUF2X+2> 

real JSYn{2>-^ IBUF2-CIBUF2X+2>n 

IBUF2{IBUF2X+3> 

double precision JSYn{l>-, JSYn{2>, JSYML3} -♦ IBUF2 

{IBUF2X+2>tIBUF2{IBUF2X+3>-,IBUF2 

tIBUF2X+H> 


The tally register is increased by 3i S accordingly. 

CONDITION 2: The operand is preceded by a leading alge- 

braic sign . Upon return from GETF - 

JTERn = either "+" or 

JHODE = D indicating a null field 

A second cal 1 is made to SETF to extract 
the numeric constant from the source 
statement • If the algebraic sign was a 
the value for the constant is com- 
plemented by: 

- jsYrKi>-» jsYn-ci>T 

- JSYM-C2}-» JSYI1€2>-, 
and - JSYIK3}-» JSYN{3>. 


If the leading algebraic sign was a the sign is 

ignored. The constant is then processed as if it had 
no leading algebraic sign . {See condition 1> 


CONDITION 3: The constant is preceded by a repeat count . 

The repeat count must be an integer sepa- 
rated from the constant by an asterisk. 

Upon return from GETF - 

JTERn = "#"-i jnODE = 3-1 and JSYnCl} = value 
of repeat count 

The repeat count is recorded in ICOUNT by - 
JSYnCll -» ICOUNT 

A second call is made to GETF to obtain the constant . 

If it is a 1 iteral constant! it is processed as condition 
5 . The numeric constant is assigned to a number of 
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consecutive names from the preceding name list until 
ICOUNT = n. The constant must match "type wise" each 
of the consecutive names to which it is to be assigned. 
The constant is inserted into the intermediate language 
in IBUF2 for each of the names in the manner described 
by condition 1. IBUF2X is increased by the number of 
words of intermediate language for each entry made in 
IBUF2. The repeat count is reduced by 1 for each entry 
made into IBUF2. Uhen ICOUNT = On the repeat conditions 
are satisfied. The repeat count must not be so large 
that it is not zero when the end of the name list is 
encountered in IBUF2. The end of the intermediate lan- 
guage is marked by an entry in which: 

IBUF2{IBUF2X> = -1 

A flag IVBUF is checked to see if the name list has been 
exhausted. If IVBUF = 1 then more intermediate language 
will be generated and IBUF2 will be written out and re- 
filled. If IVBUF = 0 and the end of the intermediate 
language is encounteredi then the end of the name list 
will have been reached. {See item 2.4.b.l.l} 

CONDITION M: The numeric constant is preceded both by 

a repeat count and has a leading algebraic 
sign . First n the repeat count is processed 
according to condition 3 . Then the leading 
algebraic sign is processed according to 
condition 2 . 

CONDITION S : The operand is preceded by a single quotei 

indicating a literal constant . Literal 
constants must have a terminat ing single 
quote . Upon return from GETF - 

JTERfI = single quote 

JMODE = 0 indicating a null field 

The routine 6ETC is used to extract characters from the 
source statement . Characters are extracted until a 
terminating quote is encountered . 


The characters are entered into the intermediate language 
according to the f ollowing conditions . 


Type of NAME 

Integer 

Real 

Double precision 


No. of CHARACTERS 
2 

b 
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Characters are assigned to consecutive names until the 
literal is terminated. If assignment has begun and 
the literal terminates! the remainder of the name is 
assigned with blanks • {That is-i if a name-i whose type 
is real! was assigned a character and the end of literal 
was encountered 3 blanks are assigned to fill up the 
entry.} The intermediate language pointer is updated 
after each name assignment by: 

Type of Name -» lENTRY 

IBUF2X+IENTRY+2 IBUF2X 

2 . M . b . 2 .2 Error Conditions Check for While Processing Constant List 
Diagnostics will be given for the following errors : 

1. The repeat counter is either non-integer or 
is < D or both . 

2. A member of the constant list is both non-numeric 
and not a 1 iteral . 

3 . The numeric constant does not agree in type with 
the name {from the preceding name list} to which 
it is assigned • 

M . There is not a one to one correspondence between 
the members of the name list and the members 
of the constant list. This could be caused by 
a repeat count which is excessive in value! it 
could also be caused by an incorrect number of 
characters in the literal constant . 

S • The last member of the constant list is not 
followed by either a "/" or a "/EOS". 

t>. The members of the constant list are not 
separated by commas . 

7 . A member of the constant list is followed by 
an EOS not preceded by a slash . 

Errors l! M! S! b and 7 will cause processing of the 
source statement to be terminated by an exit from DATAPR • 
Processing of the source statement will be resumed 
following the printing of the error indication f or 
errors 2 and 3 • For illegal numeric constants! zeros 
will be substituted in their place • 
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2.4.7 FORMAT Statements 

2.4.7. 1 Subroutine CHECKF 

The routine CHECKF is entered. The statement is syntax checked, 
but remains a string of ASCII characters. It is noted whether E or 
F conversion is used so entry points for these conversions will or 
will not be created. 

CHECKF is a routine to syntax check a FORMAT statement. If it 
discovers an error in the format specifications CHECKF calls 
DIAG, the diagnostic routine. 

INPUT 

CHECKF uses the FORK routine to check fields in the FORMAT state- 
ment. The first field it receives should always be null with a 
( terminator (the leftmost left parenthesis). The field preceding 
the last must always terminate with ); the last field must be null 
with an end of statement terminator. CHECKF assumes that each 
successive call to FORK picks up the next field scanning left to 
right, in the FORMAT statement. 

OUTPUT 

As the check proceeds FORK (using FGETC) converts the FORMAT state- 
ment to external code (BCD or ASCII) and places it into IBUF2 start- 
ing at IBUF2(6). The last character placed in IBUF2 (banning an 
error) will be the terminating right parenthesis. The FORTRAN 
statement placed in IBUF2 will not include extraneous blanks or 
the EOS character. 

Upon exit IBUF2(X) will be at the number of Words in IBUF2. 
Subroutines used.: FORK, FGETC, GETC, DIAG 
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2.4. 7.2 


Format Handling Routines - FORK 

Syntax checks a format statement. Input parameters: holders for 

output. 

Output parameters: 

1. II field type 

1 = null or repeat count only 

2 = X 

3 = H 

4 = A 

5 = R 

6 = $ 

7 = 1 

8 = f 

9 = E 

10 = Error 

2. 12 field terminator 

0 = none (X,H fields) 

1 = ( 

2 = ) 

3 - , 

4 = / 

-13 = EOS 

3. 13 repeat count 

4. 14 = W 

5. 15 = D 

Modes: 1 = initial 

2 = repeat 

3 = f, E aux switch = 5,6 

4 = A,R,$,I 

5 = error aux switch = 0, 1,2,3 


Subroutines used: FGETC 
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^.^.7.3 Subroutine FGETC 

Subroutine FGETC usually delivers one character from ISORS. 
The character is converted to ASCII and output. Howevern 
if the character is an asterisk indicating a ^free field'^ 
Hollerith stringn FGETC counts the number of characters in 
the literal string and makes up an appropriate Hollerith 
dec laration • 
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ASSEfl Statements - Subroutine ASEflPR 

The ASEMPR subroutine will generate intermediate language for each 
member of a parameter list in an ASSEM statement. The meaning of 
the intermediate language generated for a particular constant 
depends on the type of constant the ASEMPR subroutine encounters 
in the parameter list. The constants may be either numeric constants, 
address constants of statement labels. 

2.4.8. 1 Output of Intermediate Language 

The intermediate language is generated in the output buffer i amed 
IBUF2. The tally register used for the word length of the output 
entry is IBUF2X. IBUF2X is set initially prior to entering ASEMPR, 
and is increased by the number of words of intermediate language 
generated for a parameter when the parameter is processed. An i.l. 
entry generated for a parameter begins at IBUF2 (IBUF2X). 

2. 4.8. 2 Numeric Constants 

A numeric constant must be an integer of the form: 

$hhhh, 

implying a hexadecimal number. The GETF subroutine is called to 
extract the numeric constant from the source buffer. If, upon 
return from GETF, the operand is other than an integer, the flag 
JMODE will not contain a ”3”. An error diagnostic will be made 
followed by an exit from ASEMPR. 

If the numeric constant is legal, the following 2 words of inter- 
mediate language will be generated in the output buffer: 

WORD 1: (IBUF2(IBUF2X)) = Ij = the number which identifies the 

parameter as a numeric constant. 

WORD 2: ( IBUF2( IBUF2X-fl) ) = the value for the numeric constant. 

2. 4.8. 3 Address Constants 

An address constant may be either an alphanumeric operand in which 
case it is a name or it may be a numeric operand in which case it is 
regarded as a statement label. The name or label is extracted from 
the source buffer by a call to GETF. If the name or label does not 
appear anywhere in the symbol table, a call is made to the store 
routine to read the operand and its class. 
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Either name or label is assumed to be used with the 
relative mode of addressing unless the operand is 
preceded by a It is then regarded as to be used 

with the absolute mode of addressing. If either operand 
is to have an increment! the increment must follow the 
operand and be enclosed with parentheses. The increment 
must be an integer constant. The GETF subroutine is 
used to extract the increment from the source buffer. 

Ifi upon return from GETFn either - 

1. {JHODE} 3 indicating that the constant is 
not an integer-i or 

2. {JTERM} ^ M2 indicating that the increment is 
preceded by a left parenthesis but not followed 
by a right parenthesis! an error diagnostic 
will begin. 

Upon return from GETF ! the value of the increment is 
recorded in JSYHI1}: If -Cl> the switch IK is set non- 
zero indicating that the ASA option is selected! I2> 
the parameter is a name! and 13} the name does not 
appear in the symbol table typed as SINGLE! the value 
of the increment is doubled . This is to accomodate the 
fact that if the ASA option is selected! integer and 
real names require 2 storage cells each while SINGLE 
names require 1. In other words : If -CIKl ^ 0! and 

ISNGL -CISYflX} = 0! 

■CJSYM{1}}*2 JSYn-Cl}. 

Triple size of increment if double precision element : 
■CJSYri-Cl}}*3 JSYfKl} 

The following 2 words of intermediate language will be 
generated for an address constant using absolute addres- 
sing and having no increment: 

WORD l: IIBUF2-CIBUF2X}> = 2 

WORD 2: -CIBUF2-CIBUF2X+1}} = pointer to name or label 

in symbol table. 

The following 3 words of intermediate language will be 
generated for an address constant using the absolute 
mode of addressing and having an increment: 

WORD l: -CIBUF2-aBUF2X}> = 4 

WORD 2: -CIBUF2{IBUF2X+1» = pointer to name or label 

in symbol table. 
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WORD 3: -CIBUF2-CIBUF2X+2» = value for increment re- 

corded in JSYUfl}. 

The following 3 words of intermediate language will be 
generated for an address constant using the relative 
mode of addressing and having an increment: 
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2.4.9 ASSIGN Statement - Subroutine ASGNPR 

ASGNPR is called directly by PHASEAto process ASSIGN statements. 

It reads the next field in ISORS using RDLABL and ascertains that it 
is a label. ASGNPR locates the label in the symbol table and places 
this symbol table pointer into the output buffer. The next two character 
of ISORS are checked for T, 0 - if they are not, a diagnostic is 
printed. ASGNPR reads the next field and checks that it is an integer 
variable name. If so, the name is located in the symbol table and 
its symbol table pointer is placed in the output buffer. The number 
of words in the record is put into the first word of the output record 
and ASGNPR exits to PHASEA* 
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2.4.10 EXTERNAL and RELATIVE Statements * Si^broutine EXRLPR 

/ ; 

EXRLPR is called by PHASE A * to process EXTERNAL and RELATIVE state- 
ments. It scans ISORS, checking the legality of each name it picks 
up, putting the name in the symbol table, and checking whether it has 
previously been declared as other than an external name. If it has 
been declared as other than an external, an error is output. If not, 
lEXT in the symbol table is set to one and, if EXRLPR is processing 
a relative statement, IREL is also set to one. Upon encountering the 
end of the statement, EXRLPR exits to PHASEA . 
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S-M-ll REUlINDr ENDFILEr BACKSPACE Statements - Subroutine ERBPR 

ERBPR is called directly by PHASEA to process REUINDr 
BACKSPACE t or ENDFILE statements- It reads the 
next field of ISORS and verifies that it is an integer 
constant or variable name- After verification ERBPR 
sets up the output entry and return- 
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2.4.12 lOSPR - Tree Builder for I/O Statements 

This routine is called by PHASeA^ -pon encountering a READ or 
WRITE. It builds the trees for the calls to Q8Q1N1, Q8QX, and 
Q8QEND, as required in IBUF2. Calls to Q8QX are built as new source 
statements which will be processed by ARITH. Other calls are built 
in the form of ARITH output and will be processed next by PHASES 

For a READ, WRITE statement the first tree generated is for Q8QIN1. 
If there is a list, a Q8QX call is generated for each element, 
and a call to Q8QEHD is. generated after the last element. 
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2.4.13 BDOPR 

The BDOPR subroutine is called to process DO statements of the 
form: 

DO label indue = Ibeg, lend, incr 
The parameters for this statement are as follows: 

1. ”label” is the statement label assigned to the final 
statement of the do loop. 

2. "indue*' is the induction parameter. 

3. "Ibeg" is the beginning parameter. 

4. "lend" is the end parameter. 

5. "incr" is the increment parameter. 

2.4.13.1 "label" 

A call is made to the RDLABL subroutine in order to extract the 
label from the source language input. Upon return from RDLABL the 
following is true: 

1. Either (ILLABL) = 0 if either -- 

a. the label is missing, or - 

b. the label is illegal, 

or (LLABL) ^ 0 if the label is present and legal. 

2. Either (ISYMD) - 0 if the label does not appear in the 
symbol table, or (ISYMD) ^ 0 if an entry for the label 
is present. If (ISYMD) = 0, a call is made to the STORE 
routine to insert this label in the symbol table. 

3. If (ISYMD) ^ 0, the statement label must either be undefined, 
or it must occur subsequent to the DO statement. If - 

(ISNOL(ISYMX)) = 0, 

the label is undefined, and if 

(ISNOL(ISYMX)) > (ISTNO) 

the label occurs subsequent to the DO statement where - 

(ISTNO) == the statement number for the source statement 
currently being processed. 

2.4.13.2 ’’indue" 

The restrictions on the induction parameter are as follows: 
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1. It must be an Integer variable. 

2. It may not be preceded by an algebraic sign. 

3. It must be followed by an equal sign. 

4. This parameter must not be used as any parameter in another 
DO statement if the do- loop for that statement contains 
the do- loop of the statement currently being processed. 

A call is made to the CKNAME subroutine to extract the parameter 
from the source language input. 

Upon return from CKNAME either - 

1. (IVCFLG) =2 if the parameter is an integer variable, or - 

2. (IVCFLG) # 2 if not. 

If 2 is the case an error diagnostic is given prior to the return 
from CKNAME . Therefore, following the return from CKNAME, only 
an exit is made from BDOPR. 

2.4.13.3 "Ibeg" 

The restrictions on the use of the beginning parameter are as 
follows: 

1. It must be either an integer variable or an integer 
constant. 

2. It may not be preceded by an algebraic sign. 

3. It must be separated from the preceding parameter by an 
equal sign. 

4. It must be followed by a comma. 

A call is made to the CKIVC subroutine to extract this parameter 
from the source buffer. Upon return from CKIVC, either - 

1. (IVCFLG) =0 if the parameter is non integer, 

2. (IVCFLG) = 1 if the parameter is an integer constant, or - 

3. (IVCFLG) = 2 if the parameter is an integer variable. 

If (IVCFLG) = 0, an error diagnostic is given by the CKIVC subrou- 
tine. Therefore, after returning from CKIVC, only an exit is made 
from BDOPR. 

2.4.13.4 "lend" 


The restrictions for the use of this parameter are the same as 
those for the "Ibeg" parameter. The CKIVC subroutine is used to 
extract this parameter from the source buffer the same as for the 
"Ibeg" parameter. 
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^incr^ 

The restrictions ■for the use of this parameter are 
the same as for the ^'Ibeg^ parameter with one 
exception: 

The increment parameter may be preceded by a 
minus sign- This parameter is also followed 
by an EOS- This parameter is optional and 
may be omitted* If sot the '^lend^ parameter 
is fol lowed by an EOS- A value of 1 is sub- 
stituted for the increment parameter- 

Output of BDOPR 

The BDOPR subroutine will generate a 5 word output 
entry for the do- loop table and a 1 word output 
entry for the output buffer - 

Do-Loop Table Entry 

^LOOPT^ = name of table 
•CLOOPTS} = capacity of the table 
ILOOPTB} = length of a table entry 
■CLOOPTX} = pointer to the entry in the table 

A DO-LOOP table entry is five words long- The 
format of the DO-LOOP table is as follows: 


UORDl: 


LEND 

= 

bits 0-lS of LOOPTim- 



LLEND> 


po inter to symbol table entry 
containing the '^lend'^ 





parameter - 

W0RD2: 

1- 

LID 

s 

bit IS of LOOPT-CSI. 



ILTD> 


1 if the ''incr'^ parameter is 
preceded by a minus sign- 


2- 

LINDUC 

=: 

bits D-IS of LOOPTIl}- 



ILINDUO 

a 

po inter to the symbol 1 table 
entry containing the ^'induc^ 





parameter- 

yORD3: 


LBEG 

s 

bits 0-15 of L00PT-C2}- 



■CLBEG} 


po inter to the symbol table 
entry containing the ^Ibeg'^ 
parameter- 

UORDM: 


LINC 

s 

bits 0-lS of L00PT-C3>. 
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{LINO = pointer to symbol table entry 
containing the '’incr^ 
parameter. 

WORDS: LLABL = bits O-IM of ID0TB{S>. 

{LLABLI = pointer to symbol table entry 
containing the ''label'' 
parameter. 
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Output Buffer Entry 

An entry made in the output buffer consists of 1 
wordr a pointer to the LOOPT entry for this DO 
statement • 

•CLOOPTX}^ ^ IBUFEflBUfeX} 


Errors 

Error diagnostics are given by BDOPR for the 
foi lowing: 

!• An illegal label or a missing label* 

S- The label occurs prior to the DO statement- 
3. Overflow of the DO-LOOP table- 
M. Overflow of the NESTED-DO-LOOP table- 
S- The Induction parameter is currently in 
use as an induction variable in a do- loop 
containing the do- loop for the statement 
currently being processed- 
b- Illegal characters separating the parameters 
in the DO statement- 
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Errors 1, 2 & 5 will cause termination of the DO statement processing, 
and an exit will be made from BDOPR following the printout of the 
error diagnostic. Following the printout of the error diagnostic 
for errors 3, 4 & 6, processing of the DO statement will be resumed. 

Induction Variables 

Indicators are to be set in each of the symbol table entries con- 
taining the "Ibeg", "lend", "indue" and "incr" parameters to 
show that these are induction variables. These indicators are 
reset when the statement label is encountered that marks the end 
of the do- loop. Such an indicator is set by - 

1 — y INDUCV(ISYMX) 



-Loops Originating in I/O Lists 


A DO statement in the source buffer is terminated by an EOS. 
do loop may originate in an I/O list such as - 


A 


WRITE (unit, format statement label)(A( I) ,1=1 , 10) , . . . 

If so, an indicator is set prior to ent.ering BDOPR. This indicator 
is recorded in ITEMPX. If the origin of the do loop is in an I/O 
list, (ITEMPX) = -1. If this is the case, a right parenthesis 
replaces an EOS as the end of the statement in the processor. 
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3 . 3 Special Subroutines for Common Allocation 


3-3. 1 Subroutine ARAYSZ 

ARAYSZ is called to determine the number of words in 
any given array- The number of words is determined by 
the number of elements in the array times the number 
of words per element. If the array is real or integer 
with ASA options selected-! the number of words per 
element will equal 2i if the array is double precision-! 
the number of words per element will equal 3- ARAYSZ 
determines the number of words per element and sets the 
element size in the symbol table -CKELSIZI- It then 
picks up the number of dimensions and the index into 
the ISTAB table- The number of words in the given 
array is calculated and the array size is transferred 
to the ISTAB table at the first entry for the array- 
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3.3*2 Subroutine CPLOOP 

CPLCX)P is called by PHASEA It allocates, in consecutive order, the 
space needed for each conunon block* CPLOOP operates in two passes, 
the first of which determines the size of each array in common, and 
the second of which allocates space* Two passes are necessary because 
common is strung in the reverse direction from which the COMMON 
statements came in* CPLOOP takes into account any EQUIVALENCE 
statements to variables and/or arrays in common, and lengthens the 
COMMON BLOCK if necessary based on these EQUIVALO^CES * 
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1.4.0 Arithmetic Expression Processors 

3.4.1 Subroutine ARITH 

ARITH is the Phase A. subroutine which itemizes and 
syntax checks arithmetic expressions. 

ARITH processes an expression found in ISORS (ISORSX)* 
to either end of statement or zero parenthesis level, 
dependent on the setting of ISTOP. 

The itemization and syntax check are done concurrently 
and an itemized reconfiguration of the source input 
is built in IBUFl. If syntax errors are encountered, 
error diagnostics are output. 

If a subscript of a variable is encountered, a call 
to SUBSCR is made to expand the subscript to a poly- 
nomial. 

When the scan of ISORS* is complete, lERR is checked. 
If lERR 0, ARITH exits. If lERR = 0, ARITH calls 
subroutine TREE to reconfigure the items in IBUFl 
into a tree structure representing the arithmetic 
expression. In the E. OA version , ARITH passes a 
mixed-mode flag to TREE in the common varieible LSI. 
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level (If statement 

2 = process single 
variable (READ, WRITE) 

IBUF2 - Set to the next avail- 
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to start) in the out- 
put buffer (IBUF2) 

ISTNO - Current statement 

number 
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Output parameters: IBUF2 

IBUF2X 
I ERR 
ISORSX 


Subroutines used: GETF 

GETSYM 

SYMBOL 

STORE 
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in t.ree form 
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word in IBUF2 
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syntax error 

- Updated to reflect 
end of expression or 
character following zero 
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- Get symbol table page 

- Search symbol table 

- Store symbol in symbol 
table 


* If AND (IFLAGS,$10) is not zero, input is in IBUF2 
(IBUF2X) . InB.OA, there are two versions of 
ARITH. 
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Mode table for exponentiation or function calls* 2 
word entry. 

Word 1 = mode 

Word 2 = LPREN setting for return to mode in word 1 

IWORK index 

Temporary holder 

Logical operator switch 

Relational operator required switch 

Relational operator encountered switch 


Operators 

CROUP LEVEL 


GROUP MEMBERS 


comma 0 

OR 1 

AND 2 

NOT 3 

Relational 4 

5 

6 
7 

( 8 


comma 

OR 

AND 

NOT 

LT, GT, LE, GE, EQ, NE 

*,/ 

icic 

(,), function 


Function is a specia 1 variable treated like a set of parentheses. 

It and its parameters are not reorderable, and can be looked at on ly 


just as it sits. 


.•if' 'N 




( 


CONTROL DATA CORPORATION 


development DIV 


document class ,U «CC t.-..PTOA Ill 

PRODUCT namf I^IASS storage huRTRAN 

TUCTS 


SOFTWARE DOCUMENT 

PAGE NO 3-11 


PRODUCT NO.. 


.VERSION. 


■ETTT 


machine series. 


1700 




INVERSE operands 
If operator: 


ic 


Operand is -- 
divisor 

thing to exponentiate (coefficient) 


SYNTAX LEGALITY TABLE (P - permissible) 


F 

I 

R 



REL 

OR 

AND 

NOT 

VAR 

ic fic-k 

-f- 

( 

) 

9 

EOS 

CONST. 

FUNC 

RELAT 



* 


P 


P 

P 




P 

P 

OR 


— 


p 

P 


P 

P 




P 

P 

AND 



1 

P 

P 


P 

P 




P 

P 

NOT 





P 


P 

P 

* 



P 

P 

VARIABLE 

P 

P 

P 


« 

P 

P 

P 

P 

P 

P 

.. 


* 

• 




P 



P 

- 



P 

P 






P 


» 

P 

* 



P 

P 

( 


•i 


P 

P 


P 

P 



«• 

P 

P 

) 

P 

P 

P 


«, 

P 

P 

* 

P 

P 

P 

— 


. f 

« 


» 


P 


P 

P 




P 

P 

CONSTANT 

P 

P 

P 



P 

P 


P 

P 

P 



BEGINNING 




P 

P 


P 

P 

» 

.. 

P 

P 

P 

FUNCTION 






- 


P 

P 

P 

«. 

.. ' 

• 


3.4.2 



Subroutine SUBSCR 


SUBSCR expands a subscript of a variable into one of the following 
po lynomia Is : 


one dimensional array: 

subscript = (C1*X1 + Dl) *E 
two dimensional array: 

subscript == (C 1^X1 + Dl + A*C2‘^X2 + A*D2 + A) ^'E 


CAI38 S 
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DOCUMENT CLASS 
PRODUCT NAME™ 
PRODUCT NO 


IMS 

roKTwm 

epos VERSION™,§Jl9 


MACHINE SERIES 


1700 
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three dimensional array: 

subscript = (Cl^Xl -f A1*C2’’^X2 + A1>va2-C3^X3 + D1 
4- A1*D2 - A1 4- A1’^A2^D3 - A1^'A2) 


Where A is the dimension of the variable being subscripted, E is 
the number of words in an array element, and the permissible form 
of a subscript dimension is: 


to a maximum of three dimensions. 

Depending on the type of resulting polynomial when all constant 
terms are collected, the variable is set to incrementally subscripted 
(the polynomial has no variable terras), variable subscripted 
(the polynomial has only a single simple variable), variable and 
increment subscript (the polynomial has a single simple variable and 
a constant term), or complex subscript. The subscript is moved to 
IBUFl. 

Subroutines used: SYMBOL 

STORE 

GETF 


Switches and Tables 


TSS 


ISSX 

IV 

IVM 

IDl 

ICl 

IXl 

ISFLAG 


3 word table containing d irriijris ion.s of subscripted 
va r i a b 1 e 

c u r r cn t d 1 me n s i o n 


iBlIfl index of variable associated with subscript 
Word length of variable associated with subscript 
3 word table of constant terms in subscript 
3 word table of constant multipliers in subscript 
3 word table of variables in subscript 
4-, - flag for subscript terms 



CALL sta ceiTient . 


t. 


A 


fe. Error in fie Id • 


p. . Set to null field. 


This routine syntax checks the source 
statement and stores it in pre-tree 
form in IBUFl for TREE to process. 

IBUFl Form 

WORD I Type 

WORD 2 level 

WORD 3 symbol table 

pointer (if 
necessary) . 


CONTROL DATA CORPORATION 


DEC S 
D ^ E 


- a 

'.N TABi. E 


DOC OMEN T 

c _ *ss 


DOC i-MCNT 
T ’ T L E 




N u M e E 










4. IF statement if IST0P~1 

5. IF must start with '( * 
diagnostic 7. 

6. Bump left parenthesis 
count and set "(■' 
operand type. 

7. Set operator level; 
set last symbol to 

increase index 

by 2. 

8. IST0P=2 means pro- 
cess a variable. 

9. Null character. 

10. JM0DE=2 means field 
is alphanumeric. 

11. Illegal operator 
or operand. 

12. 0 means unassigned 

1 means variable or 
function definition 
name . 









CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE [~] 

FLOWCHART 
DECtSION TABLE j j 
OTHER {.] 

DOCUMENT ^ MACH. / 

CLASS JTAff) /VW 

PROJECT NO- 

B 

approved 

■SB 

DOCUMENT . 

PROJECT MOR. 

■ 




PROJEC T NAME 




tssue 

number date 

TASK NO. 




ONAWN BV DATE ^ . ; 

t ASK NAME 





ht-E 
















1 


2 


4 


5 


13. If dimension and diag 

nostic and slew to ")’ • 
Otherwise class is 

a variable. 

14. Not a null character*, 
process the s>Tnbol. 

15. Not process 

other terminator. 

16. Unmatched paren- 
thesis. 


17. Matched parenthesis 
- check for exit. 


CONTROL DATACORPORATION 
SOFTWARE DOCUMENT 

SAMPLE CODE O 

FLOWCHART ^ 

DECISION TABLE 1 

other ; i 




PROJEC T NO. 

BS 

approved 

date 

DOCUMENT , ' 

t'tle a/P/n^ 

PROJEC T MGR 

■ 




PPOJEC T NAME 




ISSUE 

number date 

TASK NO 




O R A WN ft V O A T E ^ ' 

TASK NAME 





tu 


-IS 













CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

sample code [~] 

flowchart ^ 

DECiSiON TABLE 
OTHER UJ 


DOCUMENT , ^ MACH 

CLASS TMS type /7£}0 

PROJEC T NO. 

Si 

approved 

date 

DOCUMENT , ./ 



PROJECT MGR 

■ 




PROJECT NAME 




ISSUE 

NUMBER DATE 

TASK NO. 




DRAWN BY DATE > ' * 

TASK NAME 





UJ 


A A I 3 8 5 i ? OH 








-It 












t 


2 


4 


5 


22 


23 


24 


. If the field is not 
in SYMTAB, check for 

. If class is not a 
variable, must be 
or 

• If class is unassigned 
and symbol is either 
relative or external, 
a variable has been 
used as a subpro- 
gram name. 

. Set class = variable. 























26. Check partial 
variable. 

27. If dimensional 
or ■’(*' go check 
predecessor . 

28. Dimensioned sc 
set to increment 
only variable. 

29. words/entry 
if non-integer or 
integer and ASA 
selected and 
SINGLE not selected. 


PART(ISYMX) 

/ 


IBUFldBUFlX- 

.) 

JSYH (1) 

=1BUFI(1BUF1X-: 


= ITYPE 

+2 


(ISYMX) 
Set type 


IBUFl 



(IBUFlX-1) 

I^EClSYlCt^ Y 

JSYM(l) = : 

= 29 

IKtW ^ 

[Partial Variaiile) 

is?teUi^^)=o 



N 

^ 



ITEM = 
IBUFl 
(IBUFlX-1) 
(Temporary 


Assign 146 
to lAD 


I^M( ISYl 
or 

^>F£RM=4L 


CONTROL DAT ACORPORATfON 

SOFTWARE DOCUMENT 

sample code □ 

flowchart ^ 

DECISION TABLE [Jj 

OTHER 1 1 



PROJEC T NO. 


APPROVED 

/f/r/r/z 

PROJECT mgr 



PAQE ^ OF 

PROJECT NAME 



ISSUE 

number date 

TASK NO 






TASl< NAME 
























JTERM 


Cont inue 


38 






-so 













I 


2 


4 


5 


40* 

41. 

42. 

43. 

44. 

45. 

46. 


1 



ITEM = -1 

Illegal 

Expression 





, 191 

DC Loop fall- 
through if not 
legal terminator. 

End of expression 
(EOS detected). 

Expression ends 
i 1 lega 1 ly • 

Check for matched 
parenthesis . 

Unmatched paren- 
thesis. 

Relational opera- 
tor is missing. 

Set statement type 
to continue. 

Logical ex- (" 500 
pression and not 
logical if. 

Illegal use of 
relational opera- 
tion. 








O 

•V 



-B1 



























1 


2 


3 


4 


5 


54. Test for end of statement, 

55. lBUF(3)=2i means CALL 
statement. 

56. Parenthesis level the 
same ? 

57. Yes. Set mode and 
decrease IWORK index. 




MODE= 

IW0RK(IMSW-1)| 
1MSW= 

IMSW-2 





MM- 



TA/S T.Vk- J'/GO 

PROJECT NO. 

B 

approved 

DATE 


PROJECT MQR. 

■ 


HHHI 

— - — — — ^ — .-y— — — — — — — — ' ■ — 

PROJECT NAME 



HHBlI 

number oatI 

TASK NO. 




DRAWN B> DATE - 

TASK NAME 





CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 


□ 


SAMPLE CODE 
FLOWCHART 
DECtSJON TABLE 
OTHER f7] 


LU 


EE- 











58* Lett parenthesis processor, 

59* Check predecessor a 
var iab le. 

60. Predecessor is a variable. 
Is it a numeric constant? 

61. Dimensioned variable? 

62. No. Check if not read, 
write, or replacement, or 
replacement and processing 
to end of statement. 

63. Undimensioned subscripted 
variable. 




N 

ISYMX = 
IBUF(IBUF1X-1 ) 
Set symbol 
table index 






'Get symbol 
description . 



lERR = 

1 

Set error 

flag 



K 



5022 


DOCUMENT MACH. ^ 

CUASS 

PROJEC T NO. 


approved 

1 

document ^ 

PROJEC T MGR 





PROJECT NAME 




ISSUE 

NUMBER DATE 

TASK NO 




DRAWN BV date 

task name 





CONTROL OATACORPORATION 


SOFTWARE DOCUMENT 

SAMPUE CODE 

U 

FLOWCHART 


DECISION TABLE 

Q 

OTHER 

n 


A A. ? 8 5 , F OH i R V C A 1 : 7 - 


© 




2 


3 


4 


5 


64 . 

65. 

66 . 

67. 

68 . 


Slew to right parenthesis. 
End of statement? 

Right par enthe s i s • 

^ as sinned . 

Set leve 1 6 and bump 
index. 



DIAG 


Diagnostic 
8211 




IBUFI(IBUFIX) 

=13 

LS1=13 

Set multiply 






IBUF1(IBUF1X)| 
-6 

IBUFIX- 
IBUFlX+2 



document , , MACH. ^ ' 

CLASS 

PROJEC T NO. 

REV 

approved 

DATE 

DOCUMENT 

title JSP/JjV 

PROJECT MGR 




pace^of ^„5 

PROJEC T NAME 




ISSUE 

number date 

TASK NO 




DRAWNRs date.,'" - 

TASK NAME 





CONTROL DATACORRORATION 
SOFTWARE DOCUMENT 

SAMPLE CODE [~] 

FLOWCHART ^ 

DECISION TABLE f 

OTHER i 




fxi 


se- 







"le- 
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2 


3 


4 
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AND processor. 

Only OK in logical if. 

Relational operator 
encountered switch on? 

Check if last symbol 
'0 ‘ or constant or 
variable. 

Illegal operator or 
operand. 


IBUF1(IBUF1X-H[) 

=2 

Set AND opera- 
tor level 


IBUFIX 
= IBUFlX+1 


ISTOP^l 



CONTROL DATACORPORATION 

^ ^ Class 


SOFTWARE DOCUMENT 

SAMPLE CODE PJ 

FLOWCHART ^1 

DECISION TABLE 

OTHER ri 


DOCUMENT 

title 


PAGEXJOFq 


PROJEC T NO. 
PROJECT MGR 
PROJECT NAME 


approved 










Relational operator 

missing* 

OR processor. 

Same as AND. 

> f f 

Processor • 

Set logical switch, 
Relational operator 
encountered switch. 
Clear relational opera- 
tor required switch. 

Same as AND and OR at 
this point. 




LSI = ITEM 
vSet last 
symbo 1 ) 



IBUFl(lBliFlX) 

=1 

Bump index 



LOGEX = 1 
LRELEiN = 1 
LRELRQ = 0 




/ 


IKJFIX 

IBUFIX- 

1 


o 

pOj? X t 


i Diagnostic 
\ 17 


J 81 

IBUFKlBUFlX+1 

=4 

Set operator 
leve 1 



ISTOP f 1 


CONTROL DAT ACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE 

□ 

FLOWCHART 


DECISION TABLE ^ 

d 

OTHER 



DOCUMENT 
C LASS 


DOCUMENT 
TITLE . 


number 


DRAWN B V 



PROJEC T NO. 


PROJECT MOR 


PROJECT NAME 


TASK NO. 


TASK NAME 

















Comma Processor - 
Illegal if not function 
or subroutine. 

Check for function or 
subroutine without 
argument . 

Plus processor - first 
field. 

*'4, processor. 

Check illegal predecessors 

- -r, - , , f / • 


LSWITC = 0 


I 86 

BUFI(IBUFIX) 

- 11 
Set -r- 
operator 


MODE = 0 


ITEM = 


IBUF 1( IBUF lX+1 


IBUFI(IBUFIX) 

=0 level 0 


Hold temp- 

IBUFl)fceiBUFlX+ 

1 

orarily 




IBUF1X= 

IBUF lX+1 
IBUFI(IBUFIX) 
=5 level 5 


I 88 

fO<LSl<16 



PROJECT NO. 


PROJEC T MGR 


PROJECT NAME 


TASK NO. 


TASK NAME 


approved 



A A 1 
















OE-E 

















94. ’’NOT" processor. 

95. Must be if statement 


.577 


96. Legal predecessors are 
AND, OR, left parenthesis. 

97. Dimensioned variable. 

98. Check for end of 
statement. 

99. End of parenthesis means put 
statement in TREE. 

100. Go process next field. 


CONTROL OATACORRORATiON 
SOFTWARE DOCUMENT 


SAMPLE CODE 
FLOWCHART 
DECtStON TABLE 

OTHER 



DOCUMENT 

MAC 
T V P 

DOCUMENT 

TITUE 

PAG! 

NUMBER 

ISSUE 

DATE 

DRAWN BY 

DAT 



TE-E 














C A LL s t a t emeu t. processor. 
Check for symbol. 


If SYMBOL not in symbol 

table, put it ir. 

Is CALL to same name as 
SUBRa^TINE being compiled'^ 

Check class unassigned. 

Check c lass external. 

Illegal subprogram reference. 


10 I 


104 


IBUFK IBUFIX) 
= 0 

Clear next 




N 



103 



IC(ISYHX) 
- 6 

EXTERNAL 

subroutine 


S’ 















t 


2 


4 


5 


108» Check for next field starting 
with left parenthesis. 

109 . End of statement ? 

1 1 10. No previous error detected 
mean s a variable has been 
used as a subprogram name. 

1 11 1 . Check for argument f lag set 
for no arguments. 

1112. Number of arguments differ 
in references to same sub- 
program. 


ilBUFl(IBUFlX) 

- 23 

Subroutine with 
no argument 


111 



lARGNO \ Y 
SYMX)=0 


K- 


lARGNO(ISYMX) 
= 1 

(Set no argu- 
ment flag 



RETURN 


.112 


DIAG 
Diagnostic 
12301 



DOCUMENT MACH, . 

CLASS type 

PROJECT NO. 

REN 

APPROVED 

DATE 


PROJEC T mgr 





PROJECT NAME 




ISSUE 

NUMBER date 

TASK NO. 





TASK NAME 





CONTROL OATACORPORATtON 
SOFTWARE DOCUMENT 


SAMPLE CODE 
Flowchart 
DECISION table 

n Y E P 




UJ 


EE- 









1 I'K Make IWOKK entry for this 
calling sequence paramctm 
list* Set switch on and 
equal to 8192 ^ no* of 
left parentheses. 

I 14. Set parenthesis level. 

116# €o process ‘ • 


LSWITC 

=8192 

‘LPREN 


IMSW=2 


Set index 


- 


LFRm 

Clear 




IBUFI(IBUFIX) 

= 20 j 

Bubroutine ! 



[BUFKIBUF 1X4-1 
=3 level 8 
LBUFIX = 
[BUF1X43 


CONTROL OAT ACORPORATION 

SOFTWARE DOCUMENT 

SAMPCE CODE 
FLOWCHART 
DECISION TABCE 

other 


DOCUMENT MACH. 

PROJECT NO. 

RC\ 

approved 

cate 


PROJECT mgr 




5229^35!^ 

PROJEC T NAME 




ISSUE 

NUMBER DATE 

TASK NO. 




DRAWN BY O A T E C?-' 

task name 





A A t 3 9 5 


ui 







Process alphanumeric or 
numeric portion of first 
field. 

Put symbol in symbol 
table if not already 
there. 

Check not symbol or if 
unassigned. 

Must be constant so set to 
constant analysis indicator 
(JESWT). 

Set to 260 if 1st field, 
otherwise 149 is set in 
normal loop. 


Assign 260 

ITYPE(ISYMX) 

to lAD 

= JESWT 

Set to constan 


analysis indie 


ISYMD = 0 


STORE \ 

Symbol into\ 
symbol table 



IBUFI(IBUFIX) 

= 0 

Clear 

type 

holder 


^^0DE^2 

NlTYFEdSYt 



PROJEC T NO. 


PROJECT M«R 


PROJECT NAME 


TASK NO 


TASK NAME 


















i^necK for symDo i . 


Computed go to based on 
symbol in symbol table* 

Numeric constant* 

Check for buffer overflow, 
then recycle* 


1 - ISYMD+1 
(Set up compu- 
ted GO TO) 


OMODE = 2 


ISYMD t 0 



Assign 230 
to lAD 


Assign 18 
to lAD 


ISYMD f 0^ 


CONTROL DATACORPORATION 1 OOCUMEN 
SOFTWARE DOCUMENT class 


SAMPLE CODE _ i 

FLOWCHART 

DECISION TABLE [ j |numscr 

OTHER i " i j ~ 

I DRAWN B 





















Name is in table of intrinsic 
functions* 

Check if number of parameters 
the same* 













2 


4 


5 



COHTRdLDATACORPOirATION 

SOFTWARE DOCUMENT 


sample code 
flowchart 

DECISION TABLE 
OTHER 


□ 







DOCUMENT MACH. 

CLASS 

PROJECT NO. 

rn 

approveo 

DATE 


PROJEC T M«R 




p*ge«^f5S" 

PROJEC T N AME 




ISSUE 

N..M3EP DATE 

TASK. NO. 




/ 

D». AWN0V OATE^ "''L 'T 

task.mame 





lUJ 

I 

Im 















2 



\ 



3 


4 


5 



task N AML 










Set c lass. 


137. Illegal subprogram reference. 

138. Check if class unassigned. 

139. Check if c lass variable. 

140. Other check for left 
parenthesis. 


C 


CONTROL OATACORPORATION 
SOFTWARE DOCUMENT 


SAMPLE CODE 
FLOWCHART 
DECISION TABLE 
OTHER 



DOC UMEN T 

C L ASS 


DOCUMENT 

TtruE 


NUMBER 




-• s? 




DRAWN BV 


•> SS w E 
DA* E 



task name 




















t 


2 


3 
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141* Check if terminator of first 

field 

142. Check if terminator of first 
field 

143. Check if terminator of first 
field end of statement. 

144. Terminator a 

145. Left parenthesis encountered . 

146. Check for externa 1 . 


CONTROL DATA CORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE 
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OECiSlON TABLE 
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DOCUMENT MACH / ^ 

CLASS TYPE 

PROJEC T NO. 

REV 
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DATE 
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t.tue M/ny 

PRO J EC T MGR 





PROJECT NAME 




tSSUE 

numb t K; date 

TASK NO, 




V DATE' 

1 task namf 

f ! 




1 UJ 











147. 

148. 

149. 

150. 


Save type in IT EM . 

Bump iridex, check for 
overflow and set SYMTAB 
entry number. 

Check mode. 

Set mode .and leve 1 of 
parentheses in intrinsic 
function work table. 
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2 


3 
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Illegal 


^ 0 

e already 
have al^' 
sDinEjr 


<lTERr' 


<T-^~-<rJERR 


6ETF 




H / 

t,Sl|t-<JTERh ^ 3 


IbC^l 


WbMS 


NTROLOATACORFORATION 
SOFTWA.RE DOCUMENT 

sample code [71 

FLOWCHART T' j 

OECiSfON TABLE T^'’ 


DOC UMEN 1 
C L ASB 

TITUE 


SUBSCR 


aS#STANT\ 
CTjriODE = 3> > 


/ALPHA 

{JhOBE 


->< yn 


-JUAfi 

5M = 

ILLEGAL 

SUBSCRIP 


T^<fsYt1D = 0 
/ STORE ' 


/<ITYF 


ICLASS 


TYPE 

FIRS 

LETT 


.izaQ. 


1 I PROJ1 



approved 


PROJECT M6R. 


PROJEC T N AMD 









|M 1 1 s W«rJi ■ !!]f « 


IBUFIX = 
IBUFIX + 1 


approved I DATE 


-SO 
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OTHER □ 


DOCUMENT 

CLASS 
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MACH. 

TYPE 
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DOCUMENT 

TITLE 

SUBSCR 





PACE 5 
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NUMBER 


ISSUE 

date 


DRAWN BY 


DATE 



PROJECT MGR. 


PROJECT NAME 


TASK NO. 


TASK NAME 
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IBUFl -CIBUF 
IBUFIX 
IBUFl {IBUF 

IBUFltlBUFl 

vK 

IBUFIX = 
IBUFIX + 1 


XI 

X+II 

k+1} 


TnUFITreDFTk} 
+FF = Cl+1+1 
CS+2*C3+3 


si/ 

IBUF1-CIV=3} 
JMODE IN 
COnPLEX PARfr 
OF SUBSCRIP 


IBUFl -CIV> 

= SUBSCRIPT 
TYPE 


17 

RETUR> 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART P] 

DECISION TABLE [_“] 
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DOCUMENT 
C L ASS 


ins 


17D0 


DOC UMENT 
TITLE 


SUBSCR 


PAGE b OF b 


ISSUE 

DATE 


drawn by 


PROJECT NO. 


PROJECT MGR 


PROJECT NAME 


TASK NO 


TASK N A M f; 


REVl approved 


fUJ 


£ 5 - 
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1700 
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Subroutine TREE 

This routine picks up from IBUFl an arithmetic expression 
that has been initially processed by ARITH and converts 
it into a tree form in IBUF2 for output . In order to 
make a treen multiple passes are made over the statement . 
Each pass finds the pr imary operator and its related 
operands • If the operand is a subexpression! it n in 
turn-i is broken up in a similar fashion and represents 
a lower level or branch of the tree- Each level of the 
tree is ordered by operator followed by its operands. 

For example: 

xa * a + b * c 

is scanned and broken into the subexpressions: 

X a * a 
and b * c 

The operator + is output 
X a * a 

is scanned - The operator * and the var iables x, a and 
a are output then 

b * c 

is scanned • The operator * and the variables b and c 
are output. 

The form of the Arithmetic tree set up in IBUF2 is as 
follows: 


example = C+D 


WORD 

1 

-1 

Tree indicator 

WORD 

2 

10 

n = words in expression {from word M 
to end! 

UORD 

3 

2 

node of expression {l=integer n 2=reali 
3=double} 

UORD 

M 

11 

Operator {see list} 

yOR]> 

5 

2 

n = number of operands 

UORD 

m 

m 
. m 

b 

H 

Pointer to 1st operand 
Pointer to next operand! etc . 

UORD 

-CN> 


N = {S + number of operands} 

m 

m 

UORD 



Operands follow operand pointers 
{see list} 


v> 



C A 13 t- 1 REV 10-«7 
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3-5MA 

17D0 


example -Ccont'd> 


UORB 

7 

7 

Pointer to second operand 

WORD 

a 

Q 

Normal/inverse switch 

WORD 


2M 

Operand type {see list} 

WORD 

ID 


SYI1TAB Pointer to D 

WORD 

11 

□ 

Normal/inverse swithc 

WORD 

12 

2M 

Operand type 

biORD 

13 

-¥ 

SYflTAB Pointer to C 

Operand 

pointer = first word number of operand - word 
number of operator 

that 

iSn 

H = 

a - M 

that 

isi 

7 = 

11 - M 


Note: An operator on a lower level is treated as an 

operand by a higher level operator! therefore! 
an operator may be both an operator and operand 
depending on which level is being processed. 
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TREE is called by the subroutine ARTTll. 
i. i ARITll detected mixed mode arithmetic 
TRIU*: calls MODMXR just l>efor- return inc| 


In thoS.OA version 
in the exfiression, 
!o ARl'l’n. 


Subroutines used: DIAG^ GETSYM, PUNT, MODMXR* 

Switches and Tables during tree building 


IFERAT 

TBRF? 

IBUF2X 

I BUF 1 

IBUFIX 

LSI 

LPREN 

NOOP 

MINUS 

NLP 


ISAV 

LSWITC 

ISSX 

IVH 

ISFIAG 

IWORK 


ISTWK 

LO 

IMSW 


LRELRQ 

MELEN 


Current operator 

Ta b I e wh e r e o u t pu t en 1 1 * y is bu i 1 1 
IBUF2 indexer 

Table containing input expression 
IBUFl indexer 

«N0T* operator in effect switch 

IBUFIX value on which to stop current subexpression 
ana lysi s 

Number of operators this level 

Leading variable preceded by an operator swtich 
First non- left parenthesis operator has been enc.( -unt ern- 
switch - used in determining existence of leading 
sign 

IBirf2 index of operator this level 
Last operator was a function switch 
Level of current operator 
Start of expression in IBUF2 

First operator switch - used in counting leading 
left parens 

History of expression being built in IBUF2 
Four words per entry 

Word 1 IBUFl index on which to stop subexpr 
analysis (Dunrimy entry indicator for *N0T if 0) 

Word 2 IBUFl index for operator this subexpression 
or:: Assumed operator indicator (-operator in upper 
six bits and IBUFl index in lower 10) 

Word 3 1BUF2 index of operand pointer^ this operand 

Word 4 IBIFF2 index of operator this level 
IWORK index where entries^ this level, start 
Class of prior operator 
Integer divide operator switch 

0 no prior operator 

1 ~ logical 

2 =• relational 

3 “ arithmetic 
IWORK index 

IBUFl index at which to start current subexpression 
ana lysis 


NOTE: Each operand (operator) except the first is preceded by a 

norma I / Inver se indicator* 
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CONTROL DATA CORPORATION • DEVILOPMINT DIV 


• SOFTWARE DOCUMENT 


POGUMENT CLASS 

PRODUCT NAME 170Q 
PRODUCT NO UJQS 


JM 


HASS STORAGE FORTR^T 


.PAGE NO , 3--Rk 


VEBSIQ N g-D, 


.MACHINE SERIES. 


jjm. 


operand Types within Trees (Operators are Also Operands) 

1. COMMA - does not appear in File 2 

2. AND 

3. OR 

4. NOT • does not appear in file 2 

5a LT 

6. GT 

7 a LE 

8. GE 

9. EQ 

10. NE 

11. 4- 

12. - does not appear in File 2 - represented by inverse *f 

13. ^ ( *f«inverse 

14. non-reorderable -r (integer) 

15. 

16. ( does not appear in File 2 

17. ) does not appear in File 2 

18. Function 

19. unused 

20. subroutine 

21. unused 

22. function with no argument 

23. subroutine with no argument 

24. non-subscripted variable 

25. variable only sbuscripted variable 

26. increment only subscripted variable 

27. variable and increment subscripted variable 

28. complex subscripted variable 

29. non-subscripted partial variable 

30. variable only subscripted partial variable 

31. increment only subscripted partial variable 

32. variable and increment subscripted variable 

33. complex subscripted partial variable 

35. numeric constant 

36. calling sequence label - pass 4 generaged 

37. material constant 

Types 22 - 24, 29, 34, 35 are two word entries 

WORD 1 operand type 

WORD 2 symbol table pointer 

Types 18-21 take two words tp express type 

WORD 1 operand type 

WORD 2 symbol table pointer 

WORD 3 no. operands etc. 


' A 
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9 


9 


DOCUMENT CLASS 

PRODUCT namf 1700 
PRODUCT NO CD05 


HA SS ''^'TVflsi;iri^'OKTfma — 

V^:g«;inN MACHINP SFRIP<; 17^ 


PAGE NO_^ i: 


Types 25 - 30 are of the following form 

WORD 1 25,30 

WORD 2 symbol table pointer 

WORD 3 24,29 for subscript variable 

WORD 4 symbol table pointer 

Types 26 and 31 are of the following form 

WORD 1 26,31 

WORD 2 symbol table pointer 

WORD 3 constant subscript 


Types 27 and 32 are of the following form 

WORD 1 27,32 

WORD 2 symbol table pointer 

WORD 3 constant portion 

WORD 4 24,29 for subscript variable 

WORD 5 symbol table pointer for subscript 


variable 


Types 28 and 33 are of the following form 

WORD 1 28,33 

WORD 2 symbol table pointer 

WORD 3 constant portion 

WORD 4 operator (-f or 

WORD 5 no. operands pointers operands 


1 


This routine picks up 
an arithmetic ex- 
pression that has 
been initially pro- 



IBUF2(+2) 


NPL i 
(first non It; 
parenthesis OP 
encountered 




















2 



LU 

I 

Ln 

^0 






Operator is less 
than 22 to come here. 

ISSX = level of 
current operator, 
Initially 128. 


^BUFIX ^ 
+KISSX 


ISFLAG = first opera- 
tor switch used in counting 
leading left (. 


ITEM = 16 

V ( ^ 


JTEM = 17 



IBUFlX+1^ 
. ISSX X 


ITROL OATACORPORATION 

Ci^CTTuu A acT nutSTKiT 

DOCUMENT ^ 

CL.ASS XM5 

PROJECT NO. 


approveo 

DATE 


DOCUMENT 

77f£^ 

PROJECT MOR. 




WWUC. [ 1 

flowchart m 


PROJECT NAME 




OECtSJON TABLE □ 

issue 

NUMBER date 

TASK NO. 




OTHER □ 

DRAWN BY DA-E 

TASK NAME 







-bn 



















CONTROL D AT ACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE 

□ 

FLOWCHART 

■ 

DECISION TABLE 

□ 

OTHER 

D 


DRAWN BV 






















2 


LPSWIT is count of non- 
imbedded ). 

Is this end of 

expression? 

Reset level back 
to maximum. 

LRELEN = IBUFl index 
at which to start 
current subexpression 
analysis. 

LPEEN - IBUFIX value 
at which to stop 
current subexpression 
analysis* 



Bump IBUFIX 
+ 2 

Bump LPSWIT 
+ 1 





CONTROL OAT ACORPORATION, 

SOFTWARE DOCUMENT 


SAMPLE CODE [_] 

FLO¥^CHART g 

DECISION TABLE □ 

OTHER [7J 


DOCUMENT 


PROJECT NO. 


PROJECT MGR. 


PROJECT NAME- 


APPROVED 












20. End of expressiori comes 

here. 

21* IVH = start of ex- 
pression in IBUF2. 

22. Subroutine with 
no argument. 



DOCUMENT MACH. . 

class jTAtS M66 

PROJECT NO, 

REN 

approved 

date 

DOCUMENT ^ ^ 

PROJECT mgr. 




PACE ^ 

PROJECT NRMC 




ISSUE f 

NUMBER DATE 

TASK NO. 




DRAWN BY DATE 

TASK NAME 





CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART B 

OECtSION TABLE [j 

OTHER 1 I 


UJ 


A A \ 385 iFORM£1.LY C A I27-! ) 



























CONTROL DATACORPORATfON 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART 
DECISION TABLE Q 

other □ 

DOCUMENT MACH. ^ 

CLASS JLM5 

PROJECT NO. 

REV 

approved 

C A-^E 

DOCUMENT ^ 

title T/f££ ■ . . 

PROJECT MGR. 




PACE ^ 

PROJEC T NAME 




iSSUE 

number OATS j 

TASK NO. 




DRAWN BY DATE 

TASK NAME 
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o 













imbedded (, slew to 

). 

4. Non-reorder ab le , 

5. End of expression. 


0^^ 21 

ITEM 


1031 s 

Bump 

IBUFIX 


1032 > 

^/IBUF 
X LPI- 




Ye< 


fu 


CONTROL DaTa CORPORATION 
SOFTWARE DOCUMENT 

SA^F>LE CODE 


DOCUMENT ^ 
Cl. ASS ^ 

title 


FLOWCHART 
DECISION TABLE 


[T 


I NUMBER 




























CONTROL DAT ACORPORATION 

SOPTi^ARE DOCUMENT 


sample code 

f C.0#»CHART 
CECISfON TABLE 


DOC UMEN T 
TfTL.E 














sOperato;?^ N 



SOFTWARE DOCUMENT 


SAMPLE CODE 

FLOWCHART 
DECISION TABLE 


DOCUMENT 


DOCUMENT 

title 


PROJECT NO. 


APPROVED 
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CONTROL DAT AC0RPORATION l DOCUMENT 
SOFTWARE DOCUMENT Class 

SAMPLE CODE [“] 

FLOWCHART SJ 

DECISION table ' | 



PROJECT NO. 


PROJECT mgr 


PROJEC T NAME 


TASK NO 


41 




Yes 




1150 > lAD 

lSAV+1 > 

IBUF2X 
0— > LSWITC 



























2 


ISSX contains a re la- li 

tional operator (page 
13 ). 

If written, AiRL, B, cha^ 
to .RL. A + B, else 
make it .RL. A - B. 


1*2 = LSI 


LO > 1 


operator 

QT Yes 


1253 

± 

Bump 

IPERAT 

-1-1 

—i 


2 - — > LO 




Bump 

IBUF2X 


operator 
NLE, NE Yes 


Decrement 

IPERAT 


IPERAT ^ 

IBUF2(0) 



[^perator 


8 ^ 
IPERAT 

^ 


1-„>1BUF2(+1 
3— »IBUF2(-t-2 
0— >IBUF2(+3 






PROJECT NO. 


PROJECT MGR. 


PROJECT NAME 


TASK NO. 


TASK NAME 


approved I DATE 
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CONTROL DATACORPORATION 

SOFTKKARE DOCUMENT 


SAMPt^E CODE I 

□ 

FLOWCHART | 


DECISION TABLE j 

□ 

OTHER 1 

□ 























1170 


9 


c 


D 


49. 


50. 


NOT operator set up xn 
I WORK but not in 
IBUF2. 

Back to start. 



CONTROL OATACORPORATION 

SOFTWARE DOCUMENT 


SAMPLE CODE 
FLOWCHART 
DECISION TABLE 
OTHER 



DOCUMENT ^ 

CLASS JTJU^ 

■^■BDSaHPPSBM! 

DOCUMENT 

TITLE r/9e£ 


[number 

ISSUE ' ' 

DATE 


ORAtWN BY 


OATt 


1151 



PROJECT NO. 


PROJECT MGR. 


PROJECT NAME 


TASK NO. 


TASK NiiMt 














2 


3 


4 


5 


51 . 

52 . 

53 . 










CONTROL DATACORPORATION 
SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART g 

DECISION TABLE Q 

OTHER rn 

DOCUMENT MACH. ^ 

CLASS JO^S type 

PROJECT NO. 

B 

approved 

DATE 


PROJECT MOR. 

L.I 




PROJECT NAME 

■ 



ISSUE 

NUMBER date 

TASK NO. 

■ 



DRAWN Bv DATE ^ ^ 

TASK NAME 



|H 


UJ 


-77 



















Put in IBUF2, settings 1073 

for operand + operator 
in I WORK. 

r. . . NOO 

Put in stop pointer. 

Clear out last ' 

stop pointer. 

J = location of PTR 
in IBUF2. 

Set new starting j ; 


Decrement 


1BUF2X + 
NOOP^IW)RK(I 

ISAV ^ 

1W0RK(I+1) 


IW0^ (I-+-3) 

IW0RK(I-2) 


Bump 1 



I 


IBUF2X + 
IBUF(-l) 


IBUF2X 



LRELRQ ■ ■ » 

ISTWK 
lW0RK(+2) 
^ ) 


IBUF2X - 
IW0RK(+3) 

IBUF2(3) 


IW0RK(+1) 
.AND. 
1023 I 



1 + 2 


LRELEN 


CONTROL OATACORPORATION 
SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART 
DECISION TABLE □ 
OTHER □ 



A A 1 365 tFOWMEBLJf C. A t2 7-1) 


© 


-76 














Set new IBUFl index 




B 


C 


60, LO = class of prior 
operand . 


Q 


If opei 
IBUFl 
bump Li 

rater ii 
) or 14 
^ELEN 
+ 1 

J 

^59 

LRELEN 
-^BUFIX 


o 





CONTROL OATACOUPORATION 

DOCUMENT ^ ^ 

class TM< 

MACH. 
TYPE / 


□ 


V. ^ Lb# W 



FLOWCHART 




DECISION TABLE 

□ 

number 

ISSUE 

DATE 

OTHER 

DRAWN BY 

date ^ 


l-> IBUF2(0) 





















09-E 







63. This location assigned 
lAD on page 18. 

64. Error - only one 
operand allowed. 

65. Prior operator switch; 
0 = none. 



-16384 — 
IW0RK(4-1) 



CONTROL DATACORPORATION 
SOFTWARE DOCUMENT 


□ 


SAMPLE CODE 
FLOWCHART fg 

DECISION TABLE □ 
OTHER □ 


DOCUMENT 

DOCUMENT _ 

title 7yf£€ 


MAC 
T Y I 


NUMBER 


ISSUE 

DATE 


11 


-12288 





■P- 




PROJEC T NO. 

m 

APPROVED 

■Bai. 


PROJECT MGR. 





PROJEC T NAME 





TASK NO. 





T ASK NAME 
























CONTROL DATA CORPORATION 

LA JOLLA RESOURCE CENTER DIVISION 
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3.M.M Subroutine nODIIXR 

This routine is called from TREE only if a mixed mode 
expression is being processed. It transforms the tree 
form generated in IBUF2 to indicate calls to function 
operators as necessary. Mixed mode expressions and 
their related calls are as follows: 

INTEGER - REAL call FLOAT 

INTEGER - DOUBLE PRECISION call DFLT 
REAL - DOUBLE PRECISION call DBLE 

Please refer to section 3.M.3 for a description of the 
tree form generated by TREE. 

One or two lower levels may be inserted in the tree at 
each mixed mode level. If the mixed mode expression 
is REAL and there is more than one integer branch on 
the same leveli these branches are grouped so that the 
integer operation is performed before the call to FLOAT- 
If the mixed mode expression is DOUBLE PRECISION and 
there is more than one integer branch or more than one 
real branch on the same levels these branches are grouped 
respectively so that the integer operation is performed 
before the call to DFLT and the real operation is per- 
formed before the call to DBLE- Integer divides are 
not reorderable. The call to a function becomes the 
operator of a single branch on the previously mixed 
mode level. 

For example: D is a double precision variable 

R is a real variable 
I is an integer variable 
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The expression: D + I + R*I + J + R 

generates the mixed mode tree. 

1 
2 

flODflXR transforms this tree into the following form: 



R 


Level 

Level 



Level 1 
Level 2 
Level 3 
Level ^ 
Level S 
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PRODUCT NAMP 1700 NASS STORAGE FORTRAN 

PRODUCT MODEL NO. CDD5»3.1 A/B MACHINE SERIES 
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ITniT 
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DOCUMENT CLASS. 
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7DD HASS STORAGE FORTRAN 


PAGE NO. 


MACHINE SERIES. 


3 -as 


1700 


nODIIXR 

Page 2 of 17 


3f>ERATOR\. NO 
or I 


PACK MODE OP 
OPERAND INTO 
OPERAND NORPAL/ 


INCREASE 
NUMBER OF 
OPERAND BY 


Process next 
Operand. 


COMPUTE 
POINTER TO 
NEXT OPERAP 


OPERATOR 


CLEAR 

MODE 

SWITCH 


UNPACK M<)DE 
OF OPERANDS 
FROM NORMAL/ 
INVERSE SWITt t 
TO IM® TABLE 

MODE 

OR (OPERAND 
MODES) 


•fdA. INTES^ 
OPERAND 


INCREASE 
OPERAND 
COUNTER BY 
1 


POINTER 
TO OPERATOP 

-► LO 


^^PERATOR YES 
or # 
\ ** / 


X^ALL \YES 
REAL OP^r^H^ 


'IDOUBLE ^ 
.OPERANDS. 


^/Any \ 

'OPERANDS 

\LEFT 
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3 -fife. 



17 DO 



nODMXR 

Page 3 of 17 




'■U 
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DOCUMENT CLASS PAGE NO. 

PRODUCT NAMF 1700 riASS STORAGE FORTRAN 
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3-aa 

TTUti 




nODMXR 

Page S of 17 
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nODflXR 

Page b of 17 
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tns 


170D MASS STORAGE FORTRAN 


PAGE NO.. 


PRODUCT MODEL NO. CDD5»3.1 A/B 


MACHINE SERIES. 


3-^0 


17DD 


nODMXR 

Page 7 of 17 




ADD 1 TO 
BRANCH TRANS'^ 
FER COUNTER 


I 


CCMPOTE 
POINTER TO 
BRANCH 

[DISPLACEMENT 


SAVE FUNCTIOlf 
INCREMENT IN 
OPERAND 
NORMAL/INVER$ 
"SW?^ 


0 

4 

6 


FLOAT 


DFLT 

DBLE 





€ 
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DIVISION 


PAGE NO.. 


MACHINE SERIES. 


3-^1 


170D 




CaiPUTE 
POINTER TO 
END OF THIS 


CCMPUTE 
POINTER TO 
END OF THE 


noDnxR 

Page fl of 17 


PREPARE ONE 
LEVEL HIGHER 
IN TREE 


(LSl-1) 


COMPUTE 
POINTER TO 
BEGINING OF 


'^LAST 

OPERAND 


POINTER TO 

TRANSFER 

LOCATION 


POINTER TO 
THIS LEVEL’S 


OPERA 

FOR 

S3FLT 


ADD 1 TO 
DFLT COUNTI 
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DIVISION 


DOCUMENT CLASS PAGE ND 

PRODUCT NAME 17 0D HASS STORAGE FORTRAN 

PRODUCT MODEL NO C0D5»3.3i A/B MACHINE SERIES 




noDnxR 

Page T of 17 
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17DD HASS STORAGE FORTRAN 


PAGE NO. 


3 -^; 


PRODUCT MODEL NO CDD5»3-I A/B 


MACHINE SERIES. 


17DD 


nODMXR 

Page 10 of 17 



IBUF2 


Adjust Ibuf2 for 
transfer of previouse 
branch-not for current 
transf er 


IBUF2 POIN 
TO END OF 
BRANCH PRE 
VIOUSLY 


%6egi nning of branch 
to be moved within 
'lbuf2} 




ADJUST 
POINTERSTO 
NEW END OF 
TREE 


In= pointer to 
end of last 
branch in Ibuf 2 
Ibuf2 -CL0X}= number 
of words left in 
tree 




IBUF2 POINTER 
TO START OF 
GAP LEFT b|y 
. RF RVTOIISF 


IBK 


NDBK 

IXT 


IN 


BRAN 


I 


TRANSFEJ^ 


FILL GAP 
LEFT BY 
PERVIOUSE 
BRANCH TRANSFER 



POINTER T( 

displaceneIn 

OF BRANCH 
nOVED UITljlN 
IDUFA ■-» I?( T 



NUnBER OF 
UORDS IN 
GAP JUST 


TT 



Gap left by 

previouse 

transfer 


Branch not 
tr ansf ered 


Branch currentl 
transf ered 


Other branch<s:s 
left to be 
processed 




IBUF2 STATUS THROUGH 



ADJUST THE 
AFFECTED 
DISPLACEHEMT 
VALUES 


POINTER TO 
LAST BRANCH 
DISPLACEnENT 
TO BE ADJLjSTED 






CONTROL DATA CORPORATION 


DIVISION 


DOCUMENT CLASS 

PRODUCT NAME 

PRODUCT MODEL NO. 


PAGE NO. 


CDDS*3.1 A/B 


MACHINE SERIES. 


170D 

nODHXR 

Page 11 of 17 


POINTER TO 
START OF 
NEW GAP IN 


POINTER TO 
END OF IBUF1 
— ► IBUFD 


SEE IF ALL 
DBLE OPERANDS 
ARE INVERSE 


POINTER TO 
DISPLACEMENT 
OF BRANCH JIST 
TRMSFBStED 


OPERATOR 


IBUFl (7) 


STMTAB 
POINTER TO 
DBLE — ► 
IBUFl (3) 


POINTER TO 
LAST WORD 
TRANSFERRED 
— ► NDBK. . 



FLOAT \YES 


NOTION / 


OPERANDS 



/WAS^ 
mE A 
ORMAL 


SET ALL DBLE 
OPERANDS TO 
NORMAL 
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170D 


noDnxR 

Page 13 of 17 
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1700 nASS STORAGE FORTRAN 


PAGE NO. 


CD05*3.1 A/B 


MACHINE SERIES. 


3-i? 


170D 


noonxR 

Page m of 17 
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LA JOLLA RESOURCE CENTER DIVISION 


DOCUMENT CLASS PAGE NO. 

PRODUCT NAME ITOD flASS STORAGE FORTRAN 

PRODUCT MODEL A/B MACHINE SERIES— 


3-^a 

T?M 


MODMXR 

Page IS of 1? 



T5ECSESST 
LENGTH 
INCREMENT 
BY 3 




COMPUTE IBUF^ 
POINTER TO LAST 
WORD OF IBUPi 
NEEDED FOR SECOND 
^RANCHI TRAN SFER 
—►IN 
IK 

TO END OF FIRST 
BRANCH — ► 
LRELEN 


MAKE ROOM 1$ 
IBUF2 TO 
RECIEVE TRA$S- 
■ FBR I 


POINTER TO 
BEGINING OF 
OPERAND SECTION 
OF FIRST BRANCH 
'IN IBUFl 


IXT 


COIPDTE 
ADDITIONAL 
IBUF2 SPACE 
REQUIRED FOR I 
TRSNSPBK 


IT 
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HASS STORAGE FORTRAN 


PAGE NO.- 




PRODUCT MODEL NO CDD5»3-3i A/B 


MACHINE SERIES. 


TTTfir 


noDnxR 

Page lb of 17 




ADJUST NUMBfR 
OF WORDS IN 

tree — 


NUMBER OF 
WORDS IN 
HEADER — 
K, 


TRANSFER 
FUNCTION 
HEADER 
IBUFj 






COMPUTE 
DISPLACMENl 
TO THIS BRANCH 
— ^ IBUF2 ( jai) 


IBUFl POINTS 
TO BEGINING 
OF OPERAND 
SECTION — #• 


POINTER TO 
END OF THIS 
BRANCH IN 
IBUFl — ► 

rE K S L S N 


t 

© 


C(MPUTE 
NUMBER OF 
OPERANDS IN 
THIS BRANCH 

^ -^'tem 

PREPARE TO 
TRANSFER 
INVERSE 
BRANCH 
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nODHXR 

Page 17 of 17 



TS 

EE 




''%r 
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4.0 P H.ASE B 

A.i CENKKAL DESCRIPTION 

A.l.) Phase B Function Within Compiler 

Phase B is the instruction generation pass of the 1700 Tape 
FOkl'IMN coiDpiler, or, what is termed the pre~assembly phase . 

Its respOTis ibi li ty is translating FORTRAN statements into 
instructions. Other peripheral tasks relevant to the pre- 
assembly and assembly phase (PhaseC) are carried out by 
Phase 0. 

4.1,2 Input Description 

Input to Phase B is of two types: 

1. Pertinent information residing in that portion of the 
compiler's common blocks which remains intact from 
one pass to the next pass. (LABELLED COMMON) The 
information contained therein is discussed in detail 
in 4.5. 

2. An input file on d hs, k corres- 
ponding to the output file of Phase It consists 

of a consecutive string of logical records the last of 
which represents the END line. The logical records in 
the Phase 8 input file correspond one to one, and in 
the same physical order as the 1700 Tape FORTRAN source 
statements, with the following set of exceptions. 

a. Only executable statements reach the Phase B input 
file with the following additions and exceptions: 
Statements which are not classified as executable 


but which 

are passed: 

(1) 

SUBROUTINE 

(2) 

FUNCTION 

(3) 

DATA 

(4) 

FORMAT 

(5) 

END 

(6) 

Statement Function 

Statements 

which are classified as executable but 

which are 

not passed comprise the set of Input/ 

Output and 

Auxiliary Input /Out put statements : 

(1) 

READ ( f o rma tied) 

(2) 

WRITE (formatted) 

(3) 

READ (unfo rma t ted ) 

(4) 

WRITE (unformatted ) , and ... 

(5) 

REWIND 
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(6) BACKSPACE 

(7) ENDFILE 

b* Certain conditions in compilation cause the 

creation of additional executable statements in 
conjunction with those which appeared in the 
original source input. 

1. Input/Output and Auxiliary Input/Output 
statements as noted in paragraph a, are replaced 
in the same relative position within the source 
input, with an expanded set of statements con- 
sisting of one or more statements of type 

CALL, BEGIN DO, END DO. (See discussion of 
END DO below.) 

2. When two conditions are satisfied, a STOP 
statement is created and inserted immediately 
prior to the END line. First, the program 
being compiled is a main program , and second, 
the last executable statement of the program 
is neither a STOP, STOP n, or any other uncon- 
ditional transfer statement. (Unconditional 
transfer statements which comprise the latter 
(truth) portion of a logical IF do not qualify.) 

3. For each DO statement in the source input the 
Phase B input file contains a BEGIN DO state- 
ment record. But additionally, a special 
statement, END DO, internal to the compiler, 
is generated uniquely for each BEGIN EX) and 
located logically in the input file so as to 
aid Phase 9 in DO-loop instruction generation. 

c. The Logical IF statement appears in the Phased 
input file as two separate statements. 

The figure below Illustrates the format of a record 
of the Phase B input file. 

Word 1 

2 

3 

4 

(3) i 

(5 01- 6) i 1 

p-word s 
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Where : 

n - the number of words in the record (n 4 :^ 4) 
SN — s*n. or -s.n., where s.n. is the statement 
number 

ST the statement type 

SL “ the symbol table pointer of the statement 
label p > 0 

The statement label is optional and its existence 
is Indicated by SN being negative. When SN is 
negative, the remaining p words of the record 

begin at word 6 and at word n. When SN is 

positive, the remaining p words of the record 

begin at word 5 and end at word n. 

The interpretation of the last p words of any 
record by the Phase 6 processors is primarily 
determined by ST, the statement type. Each state- 
ment type designates what information, if any, 
follows in the remaining p words. 

Table 4-1 lists all statements processed in the 
1700 Tape FORTRAN compiler. Each statement is 
cross-referenced with its statement type code and 
its disposition by Phase 0. Refer to the following 
key for further explanation: 

(n.u.) - this ST code is not used in 1700 Tape 
FORTRAN 

(n.r.) - this statement type is not received by 
Phase 0 in its input file. 

^' processed by XXXXXX ^* - Phase B driver calls upon 
subprogram (named XXXXXX) which is designed to per- 
form the appropriate processing (usually generation 
of instructions) for that particular type of state- 
ment. 

" processed by Pha se dr iver - indicates that tlie 

appropriate processing for that particular type of 
statement is performed within the Phase driver 
and no subprogram is called which is specifically 
designed to process that statement type. 
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TABLE 4 - 1 

Statement Types and Phase 8 Disposition 


ype Code 

Statement Name 

Disposition by Phase B 

0 

DIMENSION 

(n.r . ) 



1 

COMMON 

(n.r . ) 



2 

INTEGER 

(n.r. ) 



3 

REAL 

(n.r. ) 



4 

(n.u. ) 





(n.u. ) 




6 

(n.u. ) 




7 

SINGLE 

(n.r. ) 



8 

BYTE, SIGNED BYTE 

(n.r.) 



y 

(n.u. ) 




10 

EXTERNAL 

(n.r. ) 



1 1 

RELATIVE 

(n.r. ) 



12 

EQUIVALENCE 

(n.r . ) 



1 3 

BLOCK DATA 

(n.r. ) 



14 

SUBROUTINE 

processed 

by 

SUBFUN 

1 3 

FUNCTION 

processed 

by 

SUBFUN 

10 

DATA 

processed 

by 

NOPROC 

17 

FORMAT 

processed 

by 

NOPROC 

18 

Replacement Statement 

processed 

by 

ARITHR 

19 

Statement Function 

proce.sscd 

by 


20 

ASSIGN 

processed 

by 

Phase 6 driver 

21 

CALL 

processed 

by 

Phase B driver 

22 

RETURN 

processed 

by 

Phase 8 driver 

23 

(n.u. ) 




24 

GO TO (unconditional) 

processed 

by 

Phase B driver 

25 

GO TO (computed) 

processed 

by 

CGOTO 

26 

GO TO (assigned) 

processed 

by 

Phase 0 driver 

27 

CONTINUE 

processed 

by 

Phase 6 driver 

28 

STOP 

processed 

by 

Phase B driver 

29 

STOP n 

processed 

by 

Phase B driver 
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Type Code 

Statement Name 

Disposition by Phase B 

30 

PAUSE 

processed 

by Phase B driver 

31 

PAUSE n 

processed 

by Phase B driver 

32 

END 

processed 

by END 

33 

ENDFILE 

(n.r. ) 


34 

REWIND 

(n.r. ) 


35 

BACKSPACE 

(n.r.) 


3b 

READ (unformatted) 

(n.r. ) 


37 

READ (formatted) 

(n.r. ) 


38 

WRITE (unformatted) 

(n.r. ) 


39 

WRITE (formatted) 

(n.r. ) 


40 

BEGIN DO 

processed 

by BGINDO 

41 

END DO 

processed 

by BAI^ANA 

42 

Arithmetic IF 

processed 

by B 

43 

Logical IF 

processed 

by 

44 

ASSEM 

processed 

by ASSEM 
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Phase P specifications will not give a general 
summary of the detailed fornu^ts of the input 
records for each statement type. Refer 
for a detailed description. References will 
be made to such formats as may be appropriate 
in clarifying explanations. 

Output Description 

Output from Phase 8 is of two types 

1. Pertinent information (either retained from previous 
passes or set by Phase B) residing in that portion of 
the compiler’s common blocks which remains intact 
from Phase B to Phase C. (The information contained 
therein is discussed in detail in 4.5.) Use and 
definition of the information is discussed throughout 
Phase B description. 

2. An output file on d/sh corresponding 

to what will become the Phase C input file . It consists 
of a consecutive string of logical records, the last 

of which is indicative of the end of the file. 

The figure below illustrates the general format of a 
record of the Phase B output file: 


Word I 
2 

3 

4 


n 

SN 

ST 


(5) I _SL 
5 or b> 


) 




^ p-words 


n 


J ^ 
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Three cases of the general format occur: 

Case 1 : 

Where : 

n “ the number of words in the record (6j^ n 9) 
SN — (not used) 

ST - 49 

SL “ (does not exist) 

the next p words begin with word 5 

2 - p — 5 

Case 1 is the instruction record. The p words 
describe a single instruction generated by Phased- 

Case 2: 

Where : 

All definitions are the same for the Phase B input 
records (see 4.1.2 P 2c). Case 2 occurs for the 
case in which the processing of an input record 
by Phased primarily is the transfer of that 
record to the output file exactly as it was read 
without modification. Records which fail into 
this category are DATA and FORMAT (ST 16 or 
ST - 17) 

Case 3: 

Where : 


n - 1 

Case 3 is a flag to Phase C to indicate that the next 
record is a case 2 type record. 


4. 1 . 3. 1 


Inst rue t ions 

Thv 2 to 3 words in the case 1 record format describe a single 
instruction generated by Phase fl • This format is as follows: 
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Word 1 
2 

(3) 

(4) 

(5) 



Indicator Word 


Word 1 is a Iways the INDICATOR word* It consists of a series 
of flags and indicators which describe the pseudo instruction 
and imply the existence and meaning of the words following 
the INDICATOR. The format of this word follows: 


n 


14 


T 


13 12 11 10 

... ... . , 

1 i 

A S D R 


9 


Q 




1 

“I 


0 

■— 1 


1. T is a special flag to indicate whether or not this 
pseudo instruction is a label item. 

T — 0, this any type of Instruction except a label. 

T ■“ 1, fllit; jc ^ Jflihf*!,. 

A c ! n I i ' i n I > r. i t I eiii 1 u i » c | a flic:. I 1 1 a t i t h I I • * 1 1 ] iimh c: • 1 1 a I cl y 

following:. A nt iM iikiie loticl 1 ( ciu^s wnii-h 

in i ixi < oiirjtH u« i J y alt! considered lcj lie equivaient 
and label the instruction immediately following the 
group of labels* 

2. A specifies whether or not this Instruction has an 
additive. An additive is an adjustment of the operand 
address. For example: 

I = J(7) 

would result in pseudo code: 

LDA J 

STA where the value -b6 is the additive. 


Phase 8 must pass this additive on to the next phase which 
after assigning an address to J must then increase the 
reference to it by 6. 

A - 0, no additive 

A - 1, additive. 
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3. S specifies whether or not the operand address 
is subscripted. 

S = O not subscripted 

S = 1 subscripted 

4. D tells whether instruction is to be made 
indirect or not. 

D = 0 not indirect 

D = indirect 

5. R Decision whether instruction is to be made 
1 or 2 words, 

R = 0 decision is left to next phase which 
will make any such command 1 word 
whenever possible, dependent upon the 
size of constant operands and distances 
of relative addresses, etc, 

R = 1 force instruction two words, regardless 
of operand size. This is usually done 
where operand has to be plugged. 

6. Q&F These two bits are set aside for the next 

phase as working space in its index 
register assignment, one for index Q and 
one for FF, In special instances. Phase 4 
may set Q and generate its own instructions 
to load Q. 

7. ^ operand type 

A. For instruction code ^ 2 

0=0 normal case, operand is a symbol 
table pointer. Addressing mode is 
assigned by assembly pass (Phase 5 ) 

0=1 Operand is an absolute value. For 
the instruction code being a storage 
reference instruction, the operand is 
less than 256^^^ 
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^ = 2 Operand is an absolute value. For 
the instruction code being a storage 
reference instruction, Phase 5 assigns 
two-word constant address mode. 

^ = 3 Not used 

0=4 Operand is relocatable address constant 
(biased) 

0=5 Operand is absolute address constant 
(unbiased) 

B. For instruction code = 2 

0=0 not used 

0=1 This address constant is in a table of 
addresses used in a Computed GO TO 
statement. The address is self relative 
and is calculated using 16-bit arithmetic, 

0=2 This address constant is a parameter 
in a calling sequence to the floating 
point subroutine, 

= 3, 4, 5 refers to parameters in a calling 
sequence to a subroutine other than the 
floating point subroutine. 

0=3 Address self relative computed in 

15-bit arithmetic with 15 bit set to 1. 

0=4 Relocatable, address. Address is 
location of referenced operand, 

0=5 Same as type 4 except address is 
unbiased. 

Word 2 is always the instruction code except when the 
instruction is a label (bit T=l), Instruction codes 
are shown in table below: 
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cx:tal 

CODE 

DECIMAL 

CODE 

INSTRUCTION 

OCTAL 

CODE 

DECIMAL 

CODE 

INSTRUCTION 

1 

1 

BSS 

41 

33 

INQ 

2 

2 

ADC 

42 

34 

LRS 

3 

3 

CON 

43 

35 

LLS 

4 

4 

END 

44 

36 

QRS 

5 

5 

PST 

45 

37 

QLS 

6 

6 

STN 

46 

38 

ARS 

7 

7 


47 

39 

ALS 

10 

8 


50 

40 

AJLC^ 

11 

9 


51 

41 

AJEZ 

12 

10 

JMP 

52 

42 

AJLZ 

13 

11 

RTJ 

53 

43 

AJGEZ 

14 

12 

LDA 

54 

44 

AJLEZ 

15 

13 

AND 

55 

45 

AJGZ 

16 

14 

STA 

56 

46 


17 

15 

STQ 

57 

47 

QJEZ 

20 

16 

RAO 

60 

48 


21 

17 

ADD 

61 

49 

QJGEZ 

22 

18 

SUB 

62 

50 


23 

19 

LDQ 

63 

51 


24 

20 

DVI 

64 

52 

FCM 

25 

21 

adq 

65 

53 

FSB 

26 

22 

MUI 

66 

54 

FMU 
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OCTAL 

CODE 

DECiriAL 

CODE 

INSTRUCTION 

OCTAL 

CODE 

DECIMAL 

CODE 

INSTRUCTION 

27 

23 

EOR 

b7 

55 

FDV 

30 

2M 


70 

5b 

FLD 

31 

25 


71 

57 


32 

2b 


72 

55 

FST 

33 

27 


73 

ST 

FAD 

3M 

2fl 

KLDia 

7M 

bO 

CA(3A 

35 

2T 

KST(J 

75 

bl 

TCi3A 

3b 

30 

ENA 

7b 

b2 

TRA(2 

37 

31 

INA 

77 

b3 

TCAA 

30 

32 

EN(} 

100 

bM 

Tcaa 




110 

72 

DCM 




111 

73 

DSB 




112 

7H 

DHN 




113 

75 

DDV 




im 

7b 

DLD 




115 

77 





11b 

75 

DST 




117 

71 

DAD 
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Each instruction corresponds uniquely to one actual 

1700 instruction with the noted exceptions: 

1. ENDt PSTt STN are discussed where appropriate in 
other sections. 

2. FCtln FSBt FflUi FDVt FLD-i FST-, FAD and DCtI-, DSB-, DMU-. 
DDVn DLDt DSTt dad are single precision and double 
precision floating point instuctions used only within 
Phase B. Phase C doesn't encounter floating commands 
as suchn but rather the floating calling sequences: 

RTJ FLOT 

CON ... 

ADC 

ADC 

etc . 

or 

RTJ DFLOT 

CON ... 

ADC 

ADC 

■ 

etc • 


3. 

M. 


"Place hold ing"--pseudo instructions BSSi ADC and 
CON. 


Conditional Jumps 


Phase B has 
accumulator 


occasion to generate code to test the 
or (2-register for b possible conditions: 


Acc or (2 


< D 
= 0 
> □ 

< 0 
> 0 
* D 


{less than zero> 
{equal to zero> 
{greater than zero! 
{less than or equal t 
{greater than or equa 
{less than or greater 


0 zero> 

1 to zero> 
than zero} 


The 17D0 Instructions Test — The condition in such 
a manner that if the condition is truen control is 
transferred to the operand address and if the con- 
dition is falsen the program continues in its normal 
sequence. 

The conditional jump instructions {for the A-register} 
in the 17DD operate in the following manner: 


A . 

SAZi condition 
A are 0 • 

is satisfied 

if 

all 

lb 

bits of 

B. 

SANi condition 
the lb bits of 

is satisfied 
A are ^ 0. 

if 

any 

or 

all of 
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C. SAP, condition is satisfied if bit 15 

(sign bit) of A is 0, 

D, SAM, condition is satisfied if bit 15 
of A is ^ O, 

Problems in testing arise from the manner in which 
these instructions operate: 

1, -O, will not be detected by SAZ. 

2. -O, will falsely satisfy SAN. 

3» SAP, does not exactly test for greater than O 
but for A = +0 or A ^ O, 

4. SAM, does not exactly test for less than O 
but for A = -O or A 0. 

(The saime holds true for the analogous Q-register 
tests, SQZ, SQN, ...etc.) 

To aid in effective code generation, eight special 
conditional jumps have been created. Each cor- 
responds to a specific test needed by Phase 0 to 
test the accumulator. Each results in the genera- 
tion of some group of real instructions. The 
resulting group of real instructions is left to 
Phase C due to information which is unavailable 
during Phase 9 operations. (Specifically, the 
distance of the operand address from the test 
instructions affects the type of code generation. ) 

The table below cross-references the special codes 
with the code that will be generated by Phase C 
depending upon the noted conditions: 
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if : 


Phase C will generate 
the following code: 

8 

pseudo 

code 

Meaning ; 

! 

1 

If operand address ADD 
is not more than 15 
cells distant in a 
forward direction 
from its references: 

If address Add is 
more than 15 cells 
distant in a forward 
direction, or is in 
a backward direction: 

AJD,LZ ADD 

A < +0 

1 SAM ADD-*-l 

SAP (1 or 2) 

j 



JMP* ADD 

1 

AJP,EZ ADdI 

A = +0 

! 

SAZ ADD-*-l 

SAN (1 or 2) 
JMP* ADD 

AJP,GZ ADD 

A > +0 

SAZ 1 

SAP ADD-*-l 

SAZ (2 or 3) 
SAM (1 or 2) 
JMP ADD 

AJP,LEZ ADD 

lA ^ +0 

1 " i 

1 

SAM ADD-*-l 
SAZ ADD-*-l 

SAZ 1 

SAP (1 or 2) 

|JMP* ADD 

1 

AJP,GEZ ADD 

A > + 0 

i 

SAP ADD-*-l 

1 

jSAM (1 or 2) 
JMP* ADD 

AJP,LGZ ADD A / +0 

i 

SAN ADD-*-l 

SAZ (1 or 2) 
JMP* ADD 


(NOTE: Operands in parenthesis are two alternatives depending 

upon whether JMP* ADD is a one or two-word command, 
respectively, ) 


There is limited use of Q-register testing. Only 
the two instructions QJP,EZ and QJP,GEZ (analogous 
to AJP, EZ and AJP,GEZ) are needed, thus the 
total number of conditional jumps is eight. 

Word 3: 

1. Whenever the instruction code is an instruction 
which has an operand, the operand is in word 3. 

The meaning of the operand, whether its a constant 
or a symbol table pointer is dependent upon field 
in the indicator word. 
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2. Whenever the instruction code is an instruction 

which has no operand, word 3 will contain no sig- 
nificant information. 


Word 4: 

Whenever field A in the indicator word is set /O 
word 4 will contain the additive value to the 
operand contained in Word 3. 

Word 5; 

Whenever field S in the indicator is set /O word 5 
will contain the symtab pointer to the variable 
which subscripts the operand. 

4.2 OPERATION OF THE PHASE B DRIVER (PHASE 6) 


PHASE 6 is the driver which controls the overall 
^ operation of Phase B . Its functions are: 

1. Initialize all flags and switches necessary 
to begin the phase. 

2 . Generate special program-wide labels. 

3. Cerujrate all internal arrays, constants and 
variables by calling HELEN. 

4. Where program is run-anywhere , gene^rate special 
i ns truc'tions which compute relocation address 
at ob ji ‘Ct-t.i me . 

5. (’all RI:aDTR to road input records. Make decis- 
ion on which processor to call based upon the 
statement type. Call that processor. Statement 
functions, arithmetic IF statements, and logical IF 
statements are processed in PHASEB as described 

in 4 - 2 . 2-4 . 

6. In case of logical IF reset input buffer pointers 
and output special labels as is appropriate. 

7. Monitor the processing of statement functions and 
reinitialize flags and generate certain labels as 
appropriate . 

4.2.1 Program Structure 


Program structure is a function of the program type 
and the run-anywhere switch. The illustration below 
will clarify how these conditions interrelate to produce 
the program structure. The ordering of the various 
elements of the program is equivalent to the ordering 

in the table. 
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LABEL TOT (label of top of 

program. Relo 
address 0000 ) 


LABEL Q8QNAJM (generated naone of 

main program) 

JMP* MBEGIN (jump from first 

cell of program to 
first executable 
instruction) 


generation of all programmer- 
defined arrays, variables, 
and constants in this FORTRAN 
program. (structure of this 
code is elucidated in section 
on program HELEN) 


code generation for 1st 
statement function, 

code generation for 2nd 
statement function. 


code generation for n-th 
statement function 

(structure of this code is elucidated 
in section dealing with statement 

function processing^ ) 


/f 


C 
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03 
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o ex 
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X 


X 


X 
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code generated 


LABEL MBEGIN 


(label of first 
executable instruc- 
tion in program) 



RTJ* 

BIAS 


ADC 

T^P 

BIAS 

BSS 

1 


LDA 

BIAS 


ADD 

BIAS -1 


STA 

BIAS 

(this code 

computes 

a value representing 


the value of the relocation address of 
the program and places that value in 
BIAS, Run-anywhere considerations require 
that the bias must be computed at run 
time, ) 


nuitn body of program includes code 
generation of all executable statments, 
and generation of jumps around format 
statements. 


LABEL RETURN (label referenced 

by jumps which 
are the result of 
RETURN statements) 


code to restore indexes 

(structure of this code is elucidated 
in section on program INXRST) 
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code generated 


UDA or FLD of value of function into 
accumulator or floating point accumu- 
lator respectively. 


JMP* 


(KPRNAM) 


KABEL KPRNAM 


(indirect 
jump to 
entry ix>int ) 


entry code, code which is responsible 
for picking up parameters and plugging 
them into the program with the proper 
increments. The code also includes 
the entry point BSS 1 and the jump 
to the first executable statement 
(structure of this code is elucidated 
in section on program ENTCOD) 


NEND 


(terminating 
pseudo instruction) 
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4.?. 2 STATtflENT FUNCTION PROCESSOR 

PH AS EB processes the statement function in the 
following steps: 

1, Generates and outputs a label to tag the first 
executable instruction of the statement function, 

2, Places the S 3 mtab pointer of the statement 
function name into holder, 

3, Initializes table KSFAT with the statement function 
arguments. Upon completion of this operation 

the table appears in its initialized state as 
shown 


KSFAT (1,1) 
KSFAT (2,1) 


KSFAT (n,l) 


KSFAT (12,1) 


KSFAT (12,2) 


ptr 1 

0 

ptr 2 

0 

• 

9 


ptr n 

0 

0 


• 

• 

• 

• 





KSFAT (1,2) 


where ptr 1-n are the symtab pointers of the 
statement function arguments . The O at 
KSFAT (M+1,1) signifies the logical end of the 
parameter list . The second word is used later 
to contain pointers to assigned temporary storage 
(See KPCSTK) 

4, Update NDPRS ( number of argument-increment pairs ) 
by the number of arguments. 
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S. Determine if the mode of the right side of the 
statement function expression is different from 
the mode of the function and generate instructions 
to call the appropriate conversion routines 
{integer to real-i real to integen integer to 
double precisionn etc-> where necessary* 

ia. Generate instructions to restore indexesn the exit 
command {indirect jump through the entry pointla 
the entry pointn and sets up and calls ENTCOD to 
generate instructions for parameter pickup. 

7. Decrement KSFCNT {# of statement functions! by 1- 


C A 138-1 «EV 10-67 



CONTROL DATA CORPORATION • OiVKLOPMKNT DiV • SOPTWARI DOCUMENT 

OOCUMtNT CLASS IMS PAGE 

PRODUCT namf HASS STOMGE FORTM^ 

PRODUCT NO C 005 VFRtjiON g.P machine SERIFS 1700 


^.?.3 ARITHMETIC IF STATEMENT PROCESSOR 

Processes the Arithmetic IF statement. For purposes 
of discussion, the Arithmetic If can be described 
as follows: 


IF (E) Kl, K2, K3 
L (statement) 

where, E is the arithmetic expression 
Kl is the address for E 0 

K2 is the address E = 0 

K3 is the address for E 0 

and L is the label of the next statement following 
the Arithmetic IF. 

Processing takes place in two basic steps: 

1. The expression (E) is given to subroutine 
ASUPER for processing. PHASEB does not 
directly call ASUPER however, but goes 
through rout ine AFIDL which in turn calls 
ASUPER and is responsible for insuring that 
after the expression has been evaluated that 

-0 is eliminated thus simplifying the conditional 
testing . 

2. One or more conditional and/or unconditional 
jumps are generated stuh that testing is per- 
formed in the most efficient manner. Two 
indexes are used IDTI and IDTJ whose values 
are dependent upon various considerations about 
the values of Kl, K2, etc. The values of these 
Indexes then determine the most efficient code 

to be generated. The settings and their meanings 
are shown : 


IDTI = 

1, 

K1=K2 

IDTI - 

2 , 

K1=K3 

IDTI - 

3 , 

K2=K3 

IDTI - 

4, 

K1?^K2/K3/K1 

IDTJ - 

1, 

K1=L 

IDTJ - 

2 , 

K2=L (Kl^^L) 

IDTJ - 

3, 

K3=K (Kl^^L, K2^L) 

IDTJ - 

4, 

Kl/L, K2/L, K3/L 
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After values for IDTI and IDTJ have been computed, 
then instructions are generated according to the 
following table : 


IDTI= 


1 


2 


3 


4 


IDTJ= 


1 


2 


3 


4 


AJP,GZ K3 

AJP,EZ K2 

AJP,GEZ K3 

AJP,LZ K1 
AJP,ZR K2 
JMP K3 


AJP,LGZ K1 

AJP,LZ K1 

AJP,LZ K1 
AJP,ZR K2 
JMP K3 

AJP,LEZ K1 



mm 

AJP,LEZ K1 
JMP K3 

AJP,LGZ K1 
JMP K2 

■1 

AJP,LZ K1 
AJP,ZR K2 
JMP K3 


4 ' 


4 ^' 

i 
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4.2.4 LOGICAL IF STATEMENT PROCESSOR 

PHASED is the processor of the Logical IF statement. 
For reference, the Logical IF is defined: 

IF (e) S 

where : 

e is a logical expression 
S is any executable statement except a D0 
statement or another Logical If. 

The logical expression becomes a ’’tree structure” in 
Phase A and is processed as such in Phase B . "Level” 
tables are employed in the processing of the tree 
similar to those used in the processing of arithmetic 
expressions. For illustration the following 
logical expression will be used: 

((I.LT.J.OR.K.LT. J).AND.(L.NE.5).AND.(M.EQ.6)) 

The tree structure becomes: 


AND 



oj 

R 


N 

E 



E 

Q 

L 

T 

L 

T 






J 

r~ 


i 

1 I 

a 

1 

5 

i 1 




i J i j 


Relational expressions CI*1T.J, L.NE.5. . .etc. ) are 
treated simply as arithmetic expressions where the 
operator is + and one of the two variables is made 
an inverse. The table below indicates which variable 

is made the inverse: 
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relational expression is interpreted: 


I.LT. J 

I-J 

I . GT , J 

J-I 

I.LE. J 

J-I 

I.GE. J 

I-J 

I.EQ.J 

I-J 

I.NE.J 

I-J 


The order is immaterial in the EQ and NE cases. But 
in the other 4 cases the order of subtraction is 
determined such that the fewest number of test 
instructions are required to determine whether or 
not the condition has been satisfied. 

Every logical and relational operator is treated 
as a binary value; that is either true or false . 
According to the true or false condition of the 
operator there is a corresponding branch to either 
of two possible points. 

All logical and relational operations are assigned 
’’truth" and "false" addresses which are based upon: 

1. The type of logical operator of which they are 
a branch. 

2. Whether or not the branch is the last branch 
of the logical operator. 


The following table shows how assignments are made: 
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The type of 
logical oper- 
ator of which 
this operator 
is a branch 


AND 


This operator is not the 
last branch 


truth 

address 

the next 
j branch of 
' the AND 


false 

address 

the same 
as the 
false 

address of 
the AND 
operator 


This operator i_s 
last branch 


the 


truth 

address 

the same 
as the 
truth 

address of 
the AND 
operator 


false 

address 

the same as 
the false 
address of 
the AND 
operator 


0R 


the same 
as the 
truth 

address of 


the next 
branch of 
the OR 


. the OR 
operator 


the same the same as 

as the the false 

truth address of 

address of the OR operator 

the OR 
operator 


Processing proceeds as follows. 

1. The 2nd statement of the Logical IF (S) is also 
read into the input buffer and it is determined 
whether or not that statement is an unconditional 
G0 T0 or RETURN statement. 

2. If the 2nd statement was a G0 T0 or RETURN the 
truth address of the highest level operator is 
set to that address. (LOGIF is set to 2) 

3- If the 2nd statement was not a GO TO or RETURN, 
truth address is a generated label. 

(LOGIF is set to 1) 

4. The false address is a generated label. 

5. In the actual level tables the highest (1st) 
level operator is actually an artificial one 
based upon the following criterion: 

a. If the 2nd statement was a GO TO or RETURN, 
the operator is set to 0R. 

b. If not, the operator is set to AND. 
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The actual logical expression then becomes 
the first branch of an artifically created 
AND or 0R operator: 


AND 


O'R 


0 


LjT ^ L|r^ 
^ I J 


A^D 


N E 


L 5 


G0 T0 
or RETURN 




I 


I 

I 

I 

ANY OTHER 
STATEMENT 
IN 2nd 
PART OF 
LOGICAL 
IF. 


6. The processing then proceeds to cycle through 
all the branches of the logical operator 
(from left to right) when a branch is itself 
a logical operator, the level tables are updated 
to the next level down and the processing pro- 
ceeds at that level with the first branch. 

When a branch is encountered which is a relational 
operator (and therefore an arithmetic expression) 
the code is generated via subroutine ASUPER to 
compute the value of the expression. 

Next, a conditional jxjmp command is generated. 

Each relational expression has associated with 
it a ’’truth” condition and a ’’false” condition 
and likewise a corresponding conditional jump 
command : 
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relational 

arithmetic 

conditional jump 

true 

false 

I.LT.J 

I-J 

AJP,LZ 

AJP,GEZ 

I.GT.J 

J-I 

AJP,LZ 

AJP,GEZ 

I.LE.J 

! j-i 

AJP,GEZ 

AJP,LZ 

I.GE.J 

1 I-J j 

AJP,GEZ 

: AJP,LZ 

I.EQ.J 

1 I-J 

AJP,EZ 

^ AJP,LGZ 

I.NE.J 

1 I-J ; 

1 i 

AJP,LGZ 

AJP,EZ 


Only one of the two conditional jximps is actually 
generated. It is always true that either the 
truth address or the false address is the next 
expression to be computed (graphically, left to 
right across the tree, the "next” expression is 
the one to the immediate right ; henceforth called 
the "fall- through address.") Therefore, if the 
truth case is actually the "fall-through," 
the conditional jxamp is the jump to the "false" 
address. If the false case is actually the "fall- 
through" the conditional jump is the jump to the 
"truth" address. 

Returning to the example code is generated in the follow- 
ing order: 

1. Test if I is less than J. 

compute I-J 

2. If true, go to the next branch of the AND 

AJP,LZ LABEL 1 

3. If false, fall through, 
test if K is less than J 

compute K-J 

4. If false, go to the address of the statement 
after the Logical If. 

AJP,GEZ LABEL 2 

5. If true, fall through. Output label LABEL 1 
test if L is not equal to 5 

compute L-5 

6. If false, go to the address of the statement 
after the Logical IF 

AJP,EZ LABEL 2 
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7. If true, fall through. 

Test if M is equal to 6. 

compute M-6 

8. ( If 2nd .half of Logical If is neither a G0 T0 
or RETUIW !) 

If false, go to the address of the statement 
after the Logical IF. 

AJP,EZ LABEL 2 

If true, fall through to the statement which 
is the 2nd half of the Logical IF 

9. (If 2nd half of Logical If is a G0 T0 or RETURN) 
If true, go to the address specified in the 

G0 T0 or implicit in the RETURN. 

AJP,NEZ X 

If false, fall through to the statement after 
the Logical If. (The G0 T0 or RETURN is then 
ignored . ) 


Level Tables 


Index NDTYP NBRNS ICBRN KOP KTRUT KFALS KFATH 



where : 

NDTYP = type of operator (AND,0R) (node type). 
NBRNS = nxjmber of branches 
ICBRN = current branch 
K0P = (working pointer) 

KTRUT = holder of "truth” address symtab ptr. 
KFALS = holder of "false" address symtab ptr. 

KFATH = holder of "fall -through" address 
symtab ptr. 
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PHASE® checks the LOGIF switch whose settings are: 

LOG IF =0, no Logical IF statement 
has occurred 

= 1, 2nd statement of Logical IF 
was not a G0 T0 or RETURN 
= 2, 2nd statement of Logical IF was 
a G0 T0 or RETURN 

IF L0GIF = 1 PHASE0 sets up its buffer and buffer 
index for processing of the 2nd half statement of 
the 

Logical IF and outputs the level 1 ”fall~through ” 
label If LOGIF = 2 PHASES ignores the 2nd half 
statement and outputs the lead 1 "false” label . 

It then returns to proceed with normal processing 
and read in the next statement. LOGIF is set to 0. 

After the completion of any other statement processing, 
LOGIF is tested for =1. If so PHASE outputs the 
level 1 "false” label, then sets L0GIF = 0. 
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4.3 PHASES STATEMENT PROCESSORS 


4.3.1 SUBFUN 

This routine processes both the SUBROUTINE and 
FUNCTION statements. Its primary task is to transfer 
the arguments of the subroutine or function subprograjn 
(in the form of S 3 nnbol table pointers) to KSUBAT, the 
Subroutine Argument Table. (A detailed outline of 
the statement formats will be found in 4.4.20) Completion 
of this process leaves KSUBAT in its initialized form 
as shown: 


KSUBAT 



S 3 nntab pointer of 1st 
argument 

pointer to next argument 
S 3 natab pointer of 2nd 
argument 

pointer to next argument 


S 5 mtab pointer of nth 
argument 

pointer to next argument 
indicates no more arguments 


The generalized form of this table is found under 
the discussion of subroutine interface. 

In addition to transfer of arguments SUBFUN also per- 
forms the following additional operations: 
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1, transfers the subroutine or function name 
into the standard holder KPRNAM. 

2, In the case of a function subprogram, creates 
a new holder to contain the results of the 
function. 

Flowcharts: 


f" ^ 
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4.3.2 NOPROC 

NOPROC ' s basic function is to transfer from the input buffer to the 
output file of PHASE B records of those statements which require no 
direct processing. 

Operating is as follows: 

1. If statement is a format and if the last instruction generated 

by PHASE B was not an unconditional jump: generate a label 

and output a jump to that label. 

2. Output special flag record which indicates that the record 
following is a DATA or FORMAT (see output description)., 

3. Output the DATA or FORMAT record exactly as it was input. 

4. If a jump around a FORMAT was generated, then output the label 
that was generated to jump to. 
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M.3.3 ARITHR 

ARITHR is the routine to process the arithmetic replace- 
ment statement • It f irst checks for the special case 
I-C J>=I-C J>+1 or 2-1 meaning that a non-partial variable 
is increased by either one or two. This allows for the 
use of one or two RAO commands in place of the normal 
sequence of commands. Otherwise the processing proceeds 
as follows: The subscript of the variable on the left 

of the equal sign is processed through the subscript 
expression processor SUBPRl. The variable or expression 
on the right side of the equal sign €=> is processed 
through the arithmetic expression processor! ASUPER • 
Finally! the STA! FST! or DST is generated into the left 
side variable preceded! if necessary! by a necessary 
call to a conversion routine Ireal to integer! integer 
to real! integer to double precision! etc.> whenever 
there is a difference between the mode of the right 
side expression and the left side variable. When the 
left side variable is a partial! code is generated to 
store the value into that partial. 
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4.3,5 CC^T0 

CC0T0 processes the computed GO TO statement in the 
following manner : 

1, Creates a label to label the table of addresses 
in the instruction generation. 

2. Tests if the GO TO expression is only a variable. 
If so a LDQ command is generated. If not, the 
instructions are generated to compute the value 
of the expression followed by a IRAQ command 

to place the value in Q. 

3, Instructions are generated to index into and 
jump through the proper table entry. 

4. The label for the address table is generated 
followed by the table of addresses corresponding 
to the label list in the computed GO TO. 
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M.3.L END 

END processes the END statement in the following manner: 

1 . For block data and main programsi the "end" pseudo- 
instruction is generated signifying the end of the 
Phase B output and Phase C input. 

2. For subroutines and function subprograms! the label 
of reference for all return statements is output 
followed by instruction generation of instructions 
to restore index registers. 

3. For function subprograms! another instruction is 

then generated to load the value of the function 
{either LDAi FLD! or DLD>. , 

M . For subroutines and function subprograms! then a 
j ump command through the entry point is generated 
followed by output of the entry point label . Then 
the parameters are set up and ENTCOD is executed to ^ ^ 

generate the parameter pickup instruction sequence . , 4 ^ 

Then the "end" is generated as in step 1 . 

S . Finally the SYUTAB points to the program name is 
transf erred to holder for use by Phase C . 
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4.3.7 BGIND^ and BANANA 

statements are reorganized by Phase 1 into two 
separate statements Begin Do and End Do processed 
in Phase 4 by BGINDO and BANANA respectively. 

Detailed descriptions of the philosophy and pro- 
cessing of the DO statement can be found in Phase 1. 

The Begin Do occurs physically in the saime position 
in the Phase 4 input file as the DO statement does 
in the FORTRAN source input. The END Dj6 corres- 
ponding to a BEGIN D0 follows the terminal statement 
of the associated D0 and precedes the next statement. 
When more than one DO statement has the same terminal 
statement the End Do's will occur consecutively in 
the output file, the first one corresponding to the 
innermost Begin Do, etc. 

Both BGINDO and BANANA generate executable instructions 
which work together to perform the loop. In generating 
executable instructions both core space and execution 
time was taken into consideration. Several factors 
enter into the analysis: 

1, Class of the initial parameter (i.e. constant 
or variable). 

2, Class of terminal parameter. 

3, Class of the incrementation parameter. 

4, Whether the loop is an incrementing or decre- 
menting loop, 

5, In certain cases, whether or not the initial 
parameter is a constant of 1. 

6, In certain cases, whether or not the terminal 
parameter is a constant of 1. 

7, In certain cases, whether or not the incre- 
mentation parameter is a constant of 1. 

In the vast majority of cases the number of times 
a loop is executed is a function of the loop parameters 
(initial, terminal, and incrementation values). If 
n represents this number then the number of times the 
terminal value must be compared with the control 
variable is: 
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n, if the comparison takes place at the end 
of the range. 

n+1, if the comparison takes place at the 
beginning of the range. 

Thus, whenever it is possible, the instructions 
which perform this comparison are placed at the end 
of the loop. The following cases are those where the 
comparison is made after the first execution of the 
DO range: 

1. The beginning and terminal values of the loop 
are constants. 

2. Decrementing loops where the terminal value 
is the constant 1, 

3. Incrementing loops where the initial value is 
the constant 1. 

Clearly, these are cases which, by their nature, 
require that the loop be executed at least once and 
it is therefore not necessary to make a check before 
beginning the loop. 

BGINDO communicates with BANANA through two tables 
KLLTB and LPTYP. KLLTB is a ten entry table with 
two words per entry and LPTYP is a ten entry table 
with one word per entry as shown: 


KJ.LTB 10,2) LDTYP (10) 
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Both tables are indexed by KLLTBX, BGINDO adds an 
entry and updates index KLLTBX for each Begin Do 
encountered, BANANA uses the information in an 
entry and decrements KLLTBX for each End Do encountered. 
The first word of the KLLTB entry is used to contain 
the symtab pointer to a generated label. This label 
is created by BGINDO to reference the end of a loop 
(i.e, the instruction to be executed when the loop 
has been satisfied). This label is only needed (and 
thus only created) when testing is done at the 
beginning of the loop. The second word of the KLLTB 
entry is used to contain the symtab pointed to the 
top-of-loop label, i,e, the label of the first 
instruction to be operated whenever the loop range 
is executed again, LPTYP contains a code that 
BGINDO uses to communicate with BANANA and designate 
what instructions should be generated at the end of the 
loop . 
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4.3.10 ASSEM 

ASSEM is the processor of the ASSEM statement. The ASSEM statement 
provides the facility for the FORTRAN programmer to generate hexa- 
decimal constants, address constants, and statement labels. These 
are received by Phase B as a consecutive list and processing is 
simply a matter of generating CON and ADC commands as appropriate. 
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M . H PHASES Subroutines 

AFIDL 

Subroutine AFIDL is an intermediate link between the 
PHASES in-line processor of arithmetic IF statements 
and logical IF statements. 

AFIDL calls ASUPER and in addition performs certain 
checking and code generation. -CASUPER is responsible 
for generating code to evaluate arithmetic expressions.} 

1. AFIDL looks at the mode of the expression 
which was processed by ASUPER. If it is either 
a single precision or double precision floating 
point expression AFIDL generates an instruction 
to load the upper portion of the pseudo-accumu- 
lator {address CS> into the hardware accumulator 
so that test instructions may operate upon that 
value. 

2. If the expression type was integern AFIDL 
determines whether or not it is necessary to 
generate an 

INA Q 

command to insure that the value -0 -CFFFF^I^} 

is not left in the accumulator . {Test instruc- 
tions do not allow for -□.} If necessary-i 
AFIDL generates such an instruction. 
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4.4.2 ASUPER 

I 

ASUPER is the arithmetic "tree'* processor. It is called once by 
each statement processor where the statement being processed contains 
an arithmetic expression. The following statements contain arith- 
metic expressions* 

1. Arithmetic Replacement Statement 

Processed by ARITHR which calls ASUPER for the expression 
on the right of the equal (=) sign. 

2. Statement Function 

Processed by which calls ASUPER for the expression 

on the right of the equal (=) sign. 

3. CALL Statement 

Processed in-line by Phase fl which calls ASUPER for the 
CALL expression . (A CALL statement is put into the ’’tree" 
format where the CALL is the highest level operator and its 
parameters are the operands. 

4. GO TO (Computed) 

Processed by CGOTO which calls ASUPER for the expression 
which follows the GO TO parenthesized label list. 

5. Arithmetic IF 

Processed hy which calls AFIDL and AFIDL calls 

ASUPER in turn for the expression within the parenthesis 
of the IF. 

6. Logical IF 

Processed by which calls AFIDL and AFIDL in turn 

calls ASUPER for each arithmetic expression within the 
parenthesized logical expression. 

The Job of ASUPER is to generate executable instructions which 
perform the evaluation of an expression. This is performed in two 
steps. 

I. The arithmetic tree is stepped through, operand by operand, in 
a search for subscripts. The disposition of them is based upon 
their type and whether or not their operator is a CALL , non- ini in 
function call , or exponentiation (**) . If the operand is a non 
subscripted variable or non- subscripted partial variable, it is 
passed over* 

A. Variable only subscripted variable (partial or non-par cia 1) . 
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B# Increment only subscripted variable (partial or non-partial). 

C. Variable and increment only subscripted variable ( par tia 1 
or non-par tia 1) • 

D. Complex subscripted variable (partial or non-par tia 1) • 

Then one of two subscript processors (SUBPRl or SUBPR2) is 
called upon to further process the subscripted variable. 

A. If the variable is an operand of an operator which is: 

1. a CALL 

2. a non-inline function, or 

3. an exponentiation (^*) 

then SUBPR2 is called. 

B. If the variable is an operand of any other operator then 
SUBPRl is called. 

II. Having completed the processing of all subscripts then ASUPER 
calls ACP which generates the instructions which evaluate the 
expression. 
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4.4.4 ENTCOD 

Refer to section 4.2.1 (Program Structure) 

ENTCOD is responsible: 

1. For Subroutines and Function Subprograms, generation of all 
instructions from the entry point to the transfer to the 
start of the routine (label MBEGIN). 

2. For Statement Functions (with Main Subroutine, or Function 
Subprograms) generation of all instructions from the state- 
ment function entry point to the transfer to the start of 
the Statement Function. 


The Structure of the entry code (thus the instruction generated 
HNTCOD ) is as shown: 


CON 

0 

constant of 0 marks the entry point to the subrou- 
tine or function subprogram or statement function. 

STQ 

LDQ 

STQ 

QSAV 

FF 

FFSAV 

instructions which save the value of Q and I 
indexes by storing in created storage locations 
QSAV and FFSAV. 

RTJ 

ADC 

Q8PREP 

name 

return jump to the parameter pickup routine (PARAMS) 
at the initialization entry Q8PREP with an address 
constant of the entry point as a parameter. This 
code is generated only if there is at least one 
parameter to the subroutine or function that the 
entry code is being generated for. 

RTJ Q8PKUP 

(series of INA 
and PST commands 
to plug this 
parameter) 

return jump to the parameter pickup routine 
(PARAMS) at the pickup entry Q8PKUP which returns 
the address of the first parameter in the A regis- 
ter. 

RTJ 

Q8PKUP 

pickup of address of second parameter. 

(series of INA 
and PST commands 
to plug this 
parameter) 



0 

m 

• 

RTJ 

Q8PKUP 

pickup of address of nth parameter. 

( series of INA 
and PST commands 
to plug this 
parameter) 
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JMP 


FFSAV 

QSAV 


KEXEC 


BSS 

BSS 


jump to beginning of program. This jump actually 
initiates the execution of the subroutine or function 
having completed the necessary index saving and 
parameter pickup and plugging 


1 

1 


storage cells to 


save Q and I index registers 




The INA and PST commands which follow each RTJ Q8PKUP are based upon 
the final settings of KSUBAT, the subroutine argument table (for 
subroutines and function subprograms) or the settings of KSFAT, the 
statement function argument table (for entry code of statement 
functions) . 


1. Subroutines and Function Subprograms. At the point of 
operation of program ENCODE, KSUBAT has been completely 
built and it reflects each argument and each increment that 
has occurred with that argument throughout the compilation. 
The increments are sorted from lowest to highest and to 
each argument /increment pair is assigned a unique temporary 
storage cell. 

Having called Q8PKUP which returns with the address of the 
argument in the accumulator ENTCOD then generates instruc- 
tions which compute each resulting address (address of 
argument and increment) and a PST (Parameter store) where 
the operand of the PST is the temporary storage assignment. 

2. Statement Functions. At the point of operation of program 
ENTCOD, KSFAT has been completely built and it reflects 
each argument and a unique temporary storage cell assigned 
to that argument. (Statement function argument can occur 
with only the nominal increment of 0 since they may never 
be subscripted). 

Having called Q8PKUP which returns with the address of the 
argument in the accumulator ENTCOD then generates a PST 
where the operand of the PST is the temporary storage 
assignment. 

Section 4.4.20 on DUMMY contains a more detailed description of the 
structure and dynamics of KSUBAT and KSFAT and a more detailed 
description of subprogram interface design. 


Flowcharts: 
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^.^.S FCnSTK 

FCHSTK is a subroutine used exclusively by KPCSTK for 
building floating-point calling sequences. The type of 
the floating-point calling sequence {single precision 
or double precision}' is transparent to FCHSTK- If the 
symbol table pointer is minus onen it indicates the 
special case of a double precision load from CS. FCMSTK 
specifically is responsible for monitoring the KFCET 
table. The structure of KFCET is showns 



KFCET 

nil 

ni2 

hi 3 

lim 

BYTE UORD 


2im 

INDICATOR WORD 

OPERAND 

ADDITIVE 

E 

r 



a 

a 

ai 

4-im 



II 

Sim 





The byte word -CKFCETI1-.1}} is divided into four M-bit 
bytes in accordance with the floating point calling 
sequence format. KBYTX indexes the byte position as 
shown: 


byte word 


IS 


12 11 


a 7 


M 3 


and : 

KBYTX = li 
= 2 -, 
= 3-, 

= Ml 


bits 15-12 
bits 11-a 
bits 7-4 
bits 3-D 


KFCETX indexes the rows of KFCET . There is space for 
from 0 to 4 entries in KFCET where each entry is 3 
words and comprises a row of KFCET {Rows 2 through SI . 


C A 130- 1 REV 10-67 





CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER ; 


DIVISION 


DOCUMENT CLASS PAGE NO 

PRODUCT NAMF 17D0 HASS STORAGE FORTRAN 

PRODUCT MODEL NO. CDD5»3.1 A/B MACHINE SERIES 17DD 


Parameters: There are two parameters to FChSTK: 

KFl - floating instruction {see floating point 
package for a detailed list of floating 
commands}. The floating instruction is a 
H - bit value. 

KF2 - operand for those floating commands such as 
FLDi DLDn FSTi and DST where there is an 
operands KF2 = □ for those commands which 
have no operands {FCOhi etc.}. 
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FCMSTK receives a call from KFCSTK with the parameter set for a 
floating command. (Hence, a request to add an entry to KFGET). 

FCMSTK adds the instruction byte to the byte word and updates index 
KBYTX. If there is an operand, FCMSTK updates KFCETX to the next 
entry and adds the operand to the table. (The indicator word and 
the additive are picked up from the original calling sequence to 
KPCSTK, KQ(1) and KQ(4) respectively. The exception is an indexing 
command, KFl = F-,, where the indicator word is created as a function 
of the current aadressing mode and there is not an additive.) 

If: 

1. All four bytes of the byte word have been filled with float- 
ing commands, or, 

2. The last floating command entered was a stop (4) 
then FCMSTK "dumps” the KFCET table in the following manner: 

1. Generates the byte word as an integer constant. 

2. Generates each entry in the table as an address constant. 

3. Reinitializes all indexes to the table. 
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KFCETX= 

KFCETX +1 


JL 


KFCET{KFCET^-.B> 
= KFB 


KFCET-CKFCET|X-, 1 > 
= K( 3 -C 1 > 




KFCET-CKFCETl 
= K£J-CM> 



X,3> 


KFCEKKFCETX-,!} 
= INDTAB{B> 




KFCET-CXFCETXnl} 

KFCET-CKFCETX-. 1 } 



3B 


RETURN 


\ 

/ 

KFCETTl-, 1 } 
= □ 

\ 

/ 

KFCETX =1 
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KBYTX =1 
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4.4.6 


FINK 

FINK is a subroutine responsible for generating instructions of in- 
line functions. The choice to make a function in line or not in- 
line was made on an individual basis for each function based upon: 

1. The number of locations which would be required to perform 
the function in line. And in contrast, 

2. The number of locations which would be required to execute 
a calling sequence. 

3. The overhead that must be paid to make a function a separate 
subroutine. 


The following functions were made in-line functions. They are listed 
with the instructions which are generated by FINK to execute them. 


1. lABS(I) 

LDA I 

AJP,GEZ SKIP 

TCA A 

SKIP : 


2. AND (I,J) 

LDA 

AND 

3. OR (I,J) 

LDA 

LDQ 

TCA 

TCQ 

CAQ 

4. FOR (I,J) 

LDA 

EOR 

5. NOT (I) 

LDA 

TCA 

6. ISIGN (I,J) 

LDA 

MUI 

LRS 

EOR 


I 

J 

I 

J 

A 

Q 

A 

I 

J 

I 

A 

I 

J 

31 

I 


All Other functions are library subroutines. 
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4.4.7 


INTRAM 

INTRAM is a routine used in conjunction with AGP to generate instruc- 
tions.' 


INTRAM, basically, updates the one-dimensional table INTRAX. The 
major index to the table, INTRAX, is initialized to 0 by PHASE4 
prior to entry of each statement processor. 

Format of the table is shown: 


IN TRA - STATEMENT TEMPORARY STORAGE TABLE 
INTRAS 


Word 1 
2 
3 


0 


0 



0 



’’level" 0 


zero, "level" separator 


"level" 1 


zero, "level" separator 


zero, "level" separator 


"level" N 


(Where L is 
table length) 


L 
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Elements are of three types depending upon the type of storage they 
identify* Information within the elements is generally organized 
from bottom to top since updating of the table proceeds downward but 
information is scanned and Introduced in a backward direction. 

A. Temporary Storage Element 


Word 1 


Word 2 


where: P is the symbol table pointer of the assigned temporary 

storage* 

N is the element designator* 

If N == 3 the temporary storage was assigned to contain 

the results of a computation whose operator was not 
inverse* 

N = 4 the temporary storage was assigned to contain 
the results of a computation whose operator was 
inverse* 


P 


N 


Ps 


B* Operand Element 
Word 1 
Word 2 
Word 3 

Word 4 I N 


where: P is the symbol table pointer of the variable. 

A is the additive of the base address where the operand 
is an array element* A = 0 if additive is 0 or if 
there is no additive. 

Ps is the symbol table pointer of the operand sub- 
script where the operand is an array element. Ps = 0 
if there is no subscript. 

N is the element designator. 


If 


N == 5 the operand was not an inverse* 
N = 6 the operand was an inverse. 


C. 


Calling Sequence Label Element 


Word 


P 




Word 2 
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where: P is a symbol table pointer assigned previously by 

the subscript processor to label the cell containing 
the results of an address computation which must be 
stuffed into a calling sequence. 

N = 7 or 8. 


D. 


Constant 
Word 1 
Word 2 


(non- symbol table pointer) Calling 


C where C is a constant 


N N = -7 


Sequence Element 


Parameters 


Parameters are common locations KNTROL^ IPTR^ lADDIT, ISBSCP, and 
KINTYP. 

INTRAM performs 10 different functions depending upon the value of 
the controlling parameter KNTROL which can assume values -7 and 
+1 through +11. If KNTROL = ... 

1. INTRAS table is updated to next level: 

a. INTRAX is incremented by 1 

b. INTRAS (INTRAX) set to 0 

2. INTRAS table is updated back to next lower level, 
a. INTRAX is decremented by 1 

3. Temporary storage element of type N = + 3 is added to current 
level of table. 

a. INTRAX is incremented by 1 and INTRAS (INTRAX) set to 
IPTR. 

b. INTRAX is incremented by 1 and INTRAS (INTRAX) set to 
KNTROL. 

4. Temporary storage element of type N = + 4 is added to current 
level of table (as per N == 3). 

5. Operand element of type N = 5 is added to current level of 
table. 





a. INTRAX is incremented by 1 and INTRAS iINTRAX> 
set to ISBSCP. 

b. INTRAX is incremented by 1 and INTRAS CINTRAXl 
set to lADDIT. 

c . INTRAX is incremented by 1 and INTRAS tlNTRAXI 
set to IPTR* 

d. INTRAX is incremented by 1 and INTRAS IINTRAX> 
set to KNTROL. 

b. Operand element of type N = b is added to current 
level of table {as per N = S>. 

7nfl. Calling sequence label element is added to current 
level of table {as per N = 3>. 

-7. Calling Sequence constant is added to current level 
of table {as per N = 3}. 

Dump instruction stringi add/subtract mode. The 
INTRAS table is scanned in a backward direction 
beginning at the current position of the index 
INTRAX at the last word of the latest entry added 
to the current level . 

a • As each element is encountered! an add or sub- 
tract instruction is generated which ref erences 
the operand designated in that element as per 
the element designator specification of non- 
inverse respectively • ADDi FADi or DAD i SUBn 
FSB-i or DSB is decided upon by interrogat ion 
of parameter KINTYP. KINTYP is set to 1-, 2 or 
3 as computation is integer! real or double 
precision respectively • 

b . If the element was temporary storage! and ele- 
ment designator was positive valued! that 
temporary storage is released by call to the 
temporary storage allocation routine! TSALOC • 
{Negative valued element designator indicates 
that the temporary storage was assigned for a 
subexpression and therefore should not be 
released until the use count has been decremented 
to □.} 

c . If the element was an operand element containing 
a non-zero subscript pointer! level 0 is searched 
for a temporary storage element containing that 
pointer • If found! that temporary storage is 
also released through TSALOC • {A subscript 
pointer may be a temporary storage yet not in 
level 0 because it contains a subexpression 
result and must not be released •> Upon comple- 
tion of control function INTRAX points to 

the D level break between the leve just processed 
and the preceding level of INTRAS • 
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17DD 


ID. Dump instruction stringi multiply/divide mode. 

Exactly the same procedure as S with flUI/FtlU/DllUT 
DVI/FDV/DDV-i with following exceptions: 

a. Constantn integer operands are checked to 
determine whether they should be replaced by 
shiftST and shifts substituted where appropriate 

b. Instructions for A-(3 sign extension are appended 
preceding integer divides. 

c. Check is made to see if code is being generated 
for pass 1 of a floating multiply. If sot 
inverses are ignored and all FDV {or DDV> 
instructions become FflU's {or DhU's}. 

11. Dump parameter string. The INTRAS table is scanned 
in a backward direction beginning at the current 
position of the index INTRAX at the last word of 
latest entry added to the current level. As each 
element is encountered a calling sequence entry is 
created . 

a . Temporary Storage Elements . An address constant 

is generated for the temporary storage as 
appropriate to run-anywhere switch . The tem- 
porary storage is then released by call to 
TSALOC. j 

b . Operand Elements . An address constant is 
generated for the temporary storage as appro- 
priate to run-anywhere switch . 

c . Calling Sequence Label Element . A label is 
generated as per the pointer in the element . 

This is followed by a generated BSS 1. 

d . Calling Sequence Constant . A constant is 
generated . 

e • IREF bit is set in symbol table to show that 
operands have been ref erenced in a calling 
sequence . 

12. Backup over Parameter String . Function is exactly 
as in 11 except no actual code is output . This is 
performed whenever a function is done in-line and 
therefore! there is no need to generate address 
constants f or the parameter list. 
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4.4.8 INXRST 

INXRST Is a short subroutine to generate the Instruction sequence which 
restores the Q and 1 Index registers. INXRST Is called by END and 
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KCPART 



KCPART 

is 

use 

memory 

of 
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single 

precis 

doubl e 

precis 

KCPART 

is 

cal 

sp pseu 

do 

acc 

portion 

of 

th 


d in conjunction with KPCSTK in keeping a 
'current' contents of the accumulatcri 
ion floating point pseudo accumulator-j and 
ion floating point pseudo accutnul ator - 
led to clear either the accumulator portionn 
umulator portionn or dp pseudo accumulator 
e accumulator record table KART • 


PARAMETERS: 


lAR 

K 


address of table KART 
=1 clear accumulator record 
=2 clear sp pseudo accumulator record 
=3 clear dp pseudo accumulator record 
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4.4.10 KOUTPT 

KOUTPT is the routine called to write a PHASE4 pseudo instruction output 
record. It is called upon for all pseudo instructions but not for 
the special records such as DATA and FORMAT. 

Steps : 

1. Transfer the number of words in this record to OUTBUF(l) (the 
word in any output record which normally designates the number 
of words in the record). This value is obtained by subtracting 
1 from KOBX the output buffer index. 


2 . 


Call WRITE 



OUTBUF-Q} = 
KOBX - 1 
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4.4.11 KPC3PR and LABKFC 

Both of these routines are simply a single call to KPCSTK. Most calls 
to KPCSTK are made through KPC3PR or LABKPC to reduce the number of 
parameters, hence the number of words in the call. 

KPC3PR handles all calls where the last two of the five KPCSTK para- 
meters are always 0. LABKPC handles all calls to KPCSTK which are 
requests to output a label. (Only the second parameter varies from one 
call to the next). 



/^PC3PR ^ r LABKPC \ 

\ ^ILX:iLY.II^ > V {ILX> ) 





nI/ 


KPCSTK 
:iN»TAB{l>-,\ 
ILX *1 0 T 0 1 03/ 


^ RETURN^ 
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4.4.12 LABLER 

LABLER is called by various PHASES subroutines to create a symbol table 
entry which represents a label, i.e., a FORTRAN generated label. 

Parameters: 

I - returns the symbol table pointer of the entry created 
by LABLER. 

Flowchart: 
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4.4.13 ACP 

ACP is the routine which actually processes 
arithmetic trees. ACP scans each tree and 
generates commands. ACP is called by 
ASUPER and SUBPR3. ASUPER and SUBPR3 
are in turn called by individual statement 
processes. ACP calls INTRAN or KPCSTK 
directly to output commands. 
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4.4. .4 PARTSB 

PARTSB is called upon to generate instructions which load a byte or 
signed byte into the accumulator. Recalling the bit designations of 
the 1700 16«bit word: 

Bit #: 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 


Bytes are delineated in the symbol table by 

IPART(ISYMX) = 1, byte 

= 2, signed byte 

IPARTR( ISYMX)= the bit number of the right-most (least significant 
bit of the byte) 

IPARTL(ISYMX)= the bit number of the leftmost (most significant 
bit of the byte) 

In a given byte : 


15 L R 0 



byte 


two basic instruction sequences are used: 

1. Byte (unsigned - except for the nominal case, L 15, R - 0) 


LDA 

X 

where 

byte 

X is the word containing the 

ARS 

m 

where 

m = IPARTR(ISYMX) (omitted 



when m = 0) 

AND 

MASK 

where 

the mask is a generated constant 


such that bits 15 through bit 
(L-Rtl) are 0 and bits (L-R) through 
0 are 1. The generated constants for 
the masks are entered in the symbol 
as they are required. 

2. Signed Byte LDA X where X is the word containing the 

byte 

ALS m where m ~ 15-IPARTL( ISYMX) (omitted 

when m — 0 ) 

ARS n where n = 15-IPARTL( ISYMX) UPARTR( ISYMX ) 
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4.4. IS READIR 

READIR Is the PHASE B subroutine for reading an input record. It Is 
called by PHASES. 

Parameters: 

I = the Index to the Input buffer (INBUFF(I)) designating the 
starting location to begin Input. 

J output parameter contains Index to the Input buffer 

(INBUFF(J)) designating the beginning of non>hesder Infor- 
mation of the record lust read in. 


Operation: 

1. Call READ and Input a record beginning at INBUFF(l) specifying 
203-1 words. Since the buffer Is 202 words long all inputs are 
through the last word of the Input buffer even though most 
records do not require that much space. 

2. Compute J 

1. If there Is nocstatement label, J = 1+5. 

2. If there Is a statement label 

a. J = 1+6 

b. butput the label. 

3. Update ISTNO to new statement number. 

4. Output STM pseudo instruction (gives PHASE C indication that 
a new statement Is beginning and what the statement number 
Is. 

5. Check to Insure that the statement just read was not coo 
large for the available Input buffer. If so call PUNT. 

Flowcharts: 
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4.4.16 SUBPRl and SUBPR2 subscript processors. 

SUBPRl and SUBPR2 are called upon by ASUPER to process subscripts. (See 
discussion of subscript processing in 4.4.2, ASUPER). 

Both programs check for operand types 26 (increment only subscripted 
variable) and 31 (increment only subscripted partial variable). No 
processing is performed on these two types. What then remains are types 
25, 27, 28, 30, 32, and 33, variable only, variable and increment, and 
complex subscripted partial/non partial variables. 

Parameters: 

I - input parameter to both SUBPRl and SUBPR2 represents address of 

array which begins at the operand ’’type" code of a ’’tree" 
operand* 1(1) = type code. 

4.4.16.1 SUBPRl 

SUBPRl processes subscripts which subscript variables that are not part 
of calling sequences. 

The subscript expression is then passed on to SUBPR3 which generates the 
instruction, which evaluate the subscript and leave the result in the 
accumu lator . 

SUBPR3 sets its parameter 

II = 0 if no actual evaluation was required, (i.e. operand was type 

25, 27, 30, or 32 and the variable in the subscript expression 
was not a partial. 

II = 1, or 2 if instructions for evaluation were actually required, 
(i.e., operand type was 28 or 33 (complex) o£ the variable 
in the subscript expression was a partial). 

SUBPRl then references the returned parameter II. If II - 0, processing 
is complete. If II 0, then: 

1. A temporary storage location is allocated. 

2. A store instruction is generated to store the result of the 
subscript eva lua tion. 

3. The variable type in the subscript expression is set to 24 (non- 
subscripted, non-partial variable). 

4. The temporary storage cell is added to INTRAS ‘’trough a call to 
IN TRAM (at this point INTRAS is at leve 1 0 , the ieve 1 which 
contains subscript assignments. See discussion in 4.4.7, INTRAM) 
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u4.l6.2 SUBPR2 

SUBPR2 is the analogous processor to SUBPRl but processes subscripts 
which subscript variables that are part of calling sequences # 

As in SUBPRl, the subscript expression is passed on to SUBPR3 which 
generates the instruction which evaluates the subscript and leaves 
the result in the accumulator. 

Then II is tested as in SUBPR2. 

If II == 0 no actual evaluation was required but the value of the sub- 
script must still be in the A register so an LDA command is 
generated to load the subscript variable. 

Then an ADD instruction is generated to add the address of the sub- 
scripted variable to the value of the subscript. (In the run-anywhere 
case the relocation constant is also added). 

Finally, a label is created and a store instruction referencing that 
label is generated. The subscripted variable operand is then modified 
to become a ''calling sequence label element” (type 36). 
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4.4.17 SUBPR3 

SUBPR3 is called by SUBPRl and SUBPR2 to generate the instructions for 
evaluating a subscript. Code generation is performed in three cases and 
the output parameter II is set accordingly: 

1. Partial variable only subscript, II = 1. 

2. Partial variable with increment subscript, II = 2. 

3. Complex subscript II = 2. 

When no instructions are generated, II =0. 
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M.M.lfl TSALOC 

TSALOC controls temporary storage allocation by updating 
and monitoring KTCATi temporary £ell ^allocation ^able. 

Table structure is shown: 


KTCAT -C20i 2> 


PTR 

A 
























where each row is a two word entry and: 


PTR = the symbol table entry 
A = available indicator: 


0 

1 

2 

3 

S 


integer temporary storage -Cunavailable} 

real temporary storage {unavailable! 

double precision temporary 
storage {unavailable! 

integer temporary storage {available! 

real temporary storage {available! 

double precision temporary 
storage {available! 


Parameters 

KCELL input or output parameter containing symbol 
table pointer to temporary storage cell- 
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N request parameter = 

1 integer temporary storage requested- 
TSALOC searches KTCAT for an available 
integer temporary storage {A=3>» If 
one is foundi the pointer is passed 
back in KCELL and availability indicator 
is set to □. If none is found a new 
one is created and KTCAT is updated. 

2 real temporary storage requested- 
TSALOC searches KTCAT f or an available 
real temporary storage {A=M>- If one 
is foundn the pointer is passed back 
in KCELL and availability indicator is 
set to 1- If none is foundn a new one 
is created and KTCAT is updated- 

3 double precision temporary storage 
requested. TSALOC searches KTCAT for 
an available double precision temporary 
storage -CA=SI- If one is foundi the 
pointer is passed back in KCELL and 
availability indicator is set to 2- 

If none is foundi a new one is created 
and KTCAT is updated - 

M release request - KCELL contains pointer 
of t empor ar y storage cell to be released • 
It is looked up in KTCAT and availability 
indicator is set to available ; 

0 3 

1 -♦ H 

2 -» S 
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4.4.19 HELEN 

I. General 

Locations of several types of data and storage cells are not 
established Implicitly in the source program* They include 
locations of : 

1. Variable Arrays 
2* Variables 

3. Constants 

4. Format information 

5. Temporary cells assigned by Phase 8 to contain intermediate 
computations. 

The emphasis of 1700 PORTRAIT on conserving core space and 
optimizing relative addressing, necessitates location of this 
data in relation to the rest of the program such that space 
and speed are minimized. 


II. Implementation 

All programmer defined arrays, variables, constants, etc., 
except format specifications will be output at the top of 
each program by Phase g Under certaiii conditions Phase C will 
take them from their place at the top of the program and relo- 
cate them within the program body. 

A. Format Information 

See NOPROC 

B. Arrays 

1. Though placement of an array within the program body may 
shorten references to it, far more references may be 
destroyed by so doing. 

2. Arrays are most often referred to in loops. Though there 
may be a great deal more references made to array elements 
during the logical sequence of a program* s operation 
there will be far fewer physical references? that is, 
less space will be devoted to array references :han to 
single variable references. 

3. Considering the non- subscripted references to arrays, it 
is likely that because of their size at least some of 
the elements would not be accessable through 1-word 
commands regardless of the placement of the array. 
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Equivalence considerations may make optimum 
assignment of array positions a highly difficult 
analysis. Therefore-! arrays will be located 
at the beginning of the program. 

C. Constants^ Variables-i Temporary Cells 

1. Phase e 

Phase B will set a flag for a ref erence to any 
location which is a candidate for becoming a 
1-word command. The flag KRFCNTi will be kept 
in a portion of each symbol table entry. Before 
execution of Phase Ci those counts will be set 
to □ which refer to any types of data which have 
already been located by Phase B {only special 
cases are located by Phase B>. 

2. Phase C 

Phase C will take all those with the flag set 
and relocate them in the body of the progr am 
such that they immediately follow the f irst 
unconditional jump after the first reference 
which defines the location {i • e . n STA-i etc .> . 
Phase C will also revise references in the 
following manner! 

a . The first reference to a cell which falls 
outside of a 127 cell distance between the 
cell and its ref erence is made a two-word 
command with a relocatable address operand ■ 

b . Every subsequent ref erence which falls out- 
side of the mentioned range but within range 
of the relocatable address operand will be 
made a relat ive-indirect ref erence to that 
operand . 

c . Idhen a subsequent ref erence is found which 

is outside of both rangesn the process begins 
over again as in 1 • 

d . Variables and constants used only in Calling 
Sequences or others whose references are 
never candidates for 1-word commands end up 
with KRFCNT = Q. 

D . Temporary Cells 

1 . Both one-wordi two-word and three-word temporary 
cells will be generated by Phase B to contain 
integer 1 real and double precision intermecfiate 
results respectively . Temporary storages are 
the result of three major functions of Phase B . 
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a. storage of intermediate computations in 
arithmetic expressions. Such storage is 
reusable from one expression to the next 
and is never needed between expressions . 

b. Special temporary storages for such things 
as saving indexesn is in use from beginning 
to end and never usable for anything else. 

At any raten the locations for these types 
of storage are decided upon by Phase B. 

2. Reuse 

Most temporary cells will be used for a brief 
time during computations and then become unused. 
It is therefore advantageous to reuse temporary 
cells as much as possible rather than create 
new ones. 

] 

Temporary storage which is in use or available 
for use will be kept in a table KTCATt which 
will cross-r ef erence their names {symbol table 
pointers! with information about their type and 
use . The table will be regularly updated in 
the following manner s 

a . As temporary cells are neededi the table 
will be searched for an unused temporary cell 
of the same type {i.e.-i integer n real or 
double precision! . If one is foundn it will 
be noted in use • If one is not foundT a new 
one will be generated and noted in use . 

b . As temporary cells terminate usen the table 
will be updated to show that that cell is 
no longer in use . {See TSALOC M . *4 • 16n f or 
further discussion.! 

3 . Placement 

a. Types » 

1. Two-word Temporary Storage 

It is likely that in most cases all 
references to twb-word temporary storage 
will occur only in single precision 
floating point calling sequences . If 
son it will be advantageous {as in FORMAT 
and in most arrays! to place these cells 
outside of the program body . 
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2. One-word Temporary Cells 

It is likely that in most cases all 
references to one-word temporary storage 
will occur in instructions which are 
candidates for one word command and 
proper placement may improve efficiency 
to a very great extent. 

3. Three-^word Temporary Storage 
{Same as 3.a.l on page M-lbbl 

b. Overlapping 

It is conceivable that when a real {two- 
word} temporary storage becomes free for 
reuse*! that it could be reused for two 
one-word temporary cells. 

Considerations: 

1. The ranges of two one-word temporary 
cells would have to very closely 
coincide such that they could be made 
consecutive cells. Such an analysis as 
this is not practical in Utility FORTRANi 
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at any rate such a situation is rare. 

2. If it were done, the method of placement of one- 
word cells (as the second word of constant 
commands) would be precluded and placement would 
become less efficient. 

3. A typical program will not have 1 and 2-word 
temporary storages in equal quantities but 
rather will have mostly one or the other. 

Cone lusion : 

Very little is gained by overlapping. FORTRAN does not attempt to 
overlap re-use of one-word and two-word temporary storage. 

III. Responsibilities of HELEN 

The responsibilities of subprogram HELEN, then, are as follows: 

A. To output BSS commands of arrays, variables, including equiva 
lence considerations, and CON commands of constants. 

B. To process functions. 

1. Replace coded names of standard library functions with 
their library name. 

Set up index for in-line functions for use by FINK 
(see 4.4.6) in generating in-line function instructions. 
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4.4.20 


DU^JMY 

Subroutine interface for programs calling subroutines or functions 
generated by FORTRAN or calling sequences generated by FORTRAN- 


I* Calling Sequences 
A. Genera 1 

Calling sequences written in assembly language and intended to 
communicate with FORTRAN-generated subroutines, and those 
generated by FORTRAN from statements or expressions such as: 
CALL SUB (P ,P ,P ,...P ) or FUNC(P ,P ,P , . . . ,P ), will have 
the following code: ^ ^ 


LOG 

LOC+1 

LOC+2 

L0C43 


RTJ^ SUB 

address of parameter 1 
address of parameter 2 
address of parameter 3 


L0C4N 
LOC^i^f 1 


address of parameter N 
(return address) 


(If the RTJ requires a 2-word relative command, then the first 
parameter will be at address LOC+2, etc., but this fact has 
no bearing on the logic of the interface.) 

In all cases, parameters are addresses of: 

1. variables 

2. constants 

3. storage locations containing results of computed parameters 

4. in the case of I/O calls, actual constants rather than 
addresses 


The CALL below contains examples of each of the first three types 
of parameters respectively. 

CALL SUB (VAR, 3.5, A4B) 

Addresses of parameters occur in consecutive locations following 
the RTJ command, one cell per address in the order that the 
parameters appear in the CALL or FUNCTION statement, left to 
right. 
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B* Floating Point 

Floating point calling sequences include other special data 
interspersed in the parameter list- Consult floating point 
specifications for differences. Tney are, however, germane 
to the discussion which follows. 

C. Run Anywhere Case 

Parameters may consist of two types of addresses: 

1. Absolute addresses 

a. All variables which are in C0MM3N will be generated 
as absolute addresses. 

b. All variables which are also parameters to the routine 
which contains the calling sequence will be computed at 
object time and placed into the calling sequence as 
absolute addresses. (Excludes floating point calling 
sequence parameters. ) 

2. Relative Addresses 

These will be generated by FORTRAN for all variables which 
do not fall into the categories for absolute addresses. This 
need arises from the necessity to compute effective addresses 
of parameters at object time. Shifting the location of 
blocks of code destroys the integrity of any absolute address- 
ing which references variables internal to that block. What 
will be termed ’'self relative” addresses (which is what is 
meant by a relative address in a calling sequence) will be 
determined in the following manner: 

The address of the parameter (for example parameter 3) 
minus the location of the ’’self relative” address in the 
calling sequence (L0C-f3), or: 

self relative address of parameter 3=(address of P^) 

- (address LOC+3) 

3. Bit 15 

Only t)ie fifteen low order bits of a parameter (14-0) are 
absolutely necessary to express a parameter whether absolute 
or relative. 

a. Non-floating point calls 

In all calling sequences (except floating point) bit 15 
then, is used as a flag to distinguish between the two 
addressing modes in that: 
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bit 15 = 0, if this parameter is an absolute address, 
bit 15 = 1, if this parameter is a relative address. 

In cases of forward references, the bit 
would have to be set; in backward references, 
the bit would already be set. Thus part of 
the computation of a relative address (see 
entry routine) involves masking bit 15 off 
and extending bit 14 to the left. 

b. Floating point calls 

Floating point calls employ a different method of 
distinguisying between relative and absolute addresses. 
Bit 15, for relative addresses, is artificially set to 

0. Absolute address already have bit 15 0. 


D. Non- Run Anywhere Case 

1. Non-floating point calling sequences 

Parameters will consist only of absolute addresses as 
mentioned in 3a but will never require object-time 
computation, since programs will never enter memory except 
through the loader. Parameters still must be plugged by 
the entry routine but no computation of effective address 
is required. 

2. F loating point calling sequences 

The contrasting design of the floating point package now 
takes advantage of the indirect addressing ability of the 1700. 
Parameters which are indirect addresses are given a 1 in 
bit position 15. Its precise use will be outlined under 
paragraph B. 


II. Subroutine or Function Entry 


A. Entry routines will have the following general responsibilities: 


1. Picking up parameters and, if necessary, biasing the ones which 
are relative and plugging the addresses wherever necessary. 

2. Computing and setting up the proper return address to the 
calling program. 

3. Initializing the execution of the ma in part of the subroutine 
or function. 


B. The task of proper ly linking up instructions and other references 
to externa 1 parameters begins at the start of instruction genera- 
tion. The Subroutine Argument Table (KSUBAT) and the Statement 
Function Argument Table (KSFAT) are built and updated in the 
following manner. 
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!• Initializing 

a. Function Subprograms 

The arguments are all placed in KSUBAT and made empty. 
(I.e., the table is initialized to show no increments.) 

Since the name of the function subprogram logically 
applies to the value of the function, but physically must 
apply to the entry point, the following procedure will be 
used to create the distinction: 

Two separate symbol table entries will be created for that 
name by PASSl and both will be passed on to PHASE 4. The 
symbol table entry which refers to the entry point label 
will be differentiated from the symbol table entry which 
refers to the label of the function value by having bit 
15 of ISYM(l) set to 1. In the latter ISYM(l) will be 
0. In fact, all symbol table entries which are entry 
points (i.e., to include names of subroutines as well) 
will have this bit set. 

b. Statement Functions 

Statement Functions do not compute their values into 
labeled locations nor are they external to the calling 
programs. Thus, only a single symbol table entry is used 
and bit 15 is 0. 

All arguments (including the additional one if function 
is floating point) are initialized into the Statement 
Function Argument Table (KSFAT) in precisely the same 
manner as described for function subprograms. 

c. Subroutines 

Subroutine name entries in the symbol table will also 
‘ have bit 15 set as noted above. Since subroutines pass 
results back through parameters they need no extra label 
nor do they need an extra parameter. Otherwise all argu- 
ments are initialized into KPCT precisely in the same 
manner as described for function subprograms. 

2. Updating (This is the function of subroutine DUMMY) 

2a. Updating KSUBAT 

Each time an instruction operand or a calling sequence operand 
is encountered which is an argument to the subroutine being 
compiled, it is paired with the additive (or increment) of 
that reference and considered unique from any other argument 
(or the same argument but different additives) . 
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The unique argument additive is looked up in KSUBAT to see 
if it exists. If not, it is added to the table such that the 
additives are sorted lowest to highest. Also, a temporary 
storage cell is assigned to it and the reference to it is 
modified to a reference to the temporary storage cell as 
already described. 

When a temporary storage cell is assigned to replace argument 
references a special bit, KDUMY, is set in the symbol table 
entry for that temporary storage. 

2b. Updating KSFAT 

Updating KSFAT follows exactly the same procedure as outlined 
for KSUBAT, except that the instruction operands and calling 
sequence operands concerned are not those external to the pro- 
gram being compiled but rather external to the Statement Func- 
tion being compiled (i.e., dummy arguments of the function). 

3. Phase C 

Phase C must perform the following functions for both run-any- 
where and non-run-anywhere : 

a. When the first reference is encountered to a temporary 
cell (of the type described above, i.e., KDUMY - 1) 

it is made a two word command such that the operand is the 
contents of the address located in the second half of 
this instruction. The address of the second word of the 
instruction is kept and cross-referenced with the 
temporary cell. 

b. All subsequent references (less than 128 cells distant) 
are made indirect references to the address portion of 
that command. 

c. When a reference is encountered outside of the range 
the process begins over again as in step 1. 

d. Whenever a reference is discovered in a calling sequence, 
the address of that parameter's location in the calling 
sequence is noted as in 1. Subsequent references may 
then refer back to this location subject to the same 
restrictions. 

e. When Phase C encounters the pseudo- instruction PST, the 
operand portion will contain a pointer to a temporary 
cell (of the type described above). At this point, PHASES 
must generate a STA command into each one of the addresses 
cross-referenced with that temporary cell. Phase B will 
already have generated all the preliminary code to compute 
the address of the parameter and its increment. 
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4. Entry Routines 

The entry routine is generated for each Statement Function 
and again for the whole Subroutine or Function Subprogram. 
(See ENTCOD 4.4.4.) 
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KPCSTK 

KPCSTK outputs pseudo code. KPCSTK updates the accumulator memory 
table (KART). KPCSTK adjusts addresses to reflect additives and 
subscripts. Some optimization is performed by checking sizes 
of constants (conversion of LDA commands to ENA wherever possible). 

Input parameters: 

1. Indicator entry from INDTAB 

2. Operation code 

3. Operand (constant or symbol table pointer) 

4. Additive value to operand 

5. Symbol table* pointer to variable subscript of operand 

KPCSTK calls: 

KPOUT 

FCMSTK 

DUMMY 

GETSYM 

KCPART 
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4. 4., 21 KSYMGN 

KSYM6N generates variable names used internally in the 
compilation of a routine as labels, temporary storage, 
or dummy parameters. The variables are stored in the 
symbol table and the pointer to the symbol table entry 
is passed to the calling routine in the parameter I. 

The generated names are of the form .hhhhh where h denotes 
a hexadecimal digit and the first generated name is .00000. 

KSYMGN calls: 

CNVT 

STORE 

SYMBOL 
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5. 


5.1 


5.1.1. 


Assembler Phases C and D/E 

Phases C and D/E are the assembler phases of the 
FORTRAN compiler. Their function is to assign storage 
locations, assign index registers, optimize use of one- 
word addressing and produce relocatable binary and list 
output. 

Phase C is the input phase of the assembly process, 
and Phase D/E is the output phase. Subroutine PHASEC 
is the main processor for the input phase. The in- 
termediate pseudo-instruction output of phase C is written 
on a disk scratch file, from which it is read by 
PHASES, the main processor for the output phase D/E. 

Assembler Input Phase C 

Three types of records are handed to the assembler 
by the previous pass; pseudo instructions, data strings 
and format records. 

Pseudo Instructions 


Pseudo instruction records consist of 1700 commands, 
pseudo commands, labels and statement nximbers. Sub- 
routine PHASEC processes all pseudo instruction records 
except storage reference instructions, conditional 
skip instructions, BSS pseudo instructions, constants 
and labels. Those items not processed by subroutine 
PHASEC arc processed by calls to the following sub- 
routines: 


Storage Reference 
Conditional Skip 
BSS 

Constant 

Label 


Subroutine 

CL12 

SKIP 

BSS 

CON 

LABIN or LABEL 


The initial pseudo instruction records read in the 
input pass contain variables, constants and arrays to 
which the assembler must assign storage locations. 
Subroutine LABIN performs this function. 


When the first executable command is encountered, ex- 
cluding the jump at the top of a main program, pseudo 
instructions are sent to the Index Optimization Sub- 
routine, IXOPT. If an instruction is indexed, the 
subroutine decides which index to use. If the instruc- 
tion is not indexed, it is checked for its possible 
effect on subsequent indexing. 
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An output record is constructed for each pseudo instruct 
tion and stored in the output buffer. Instructions with 
absolute operands 

are completely processed in the Input phase. The output record 
is flagged as ready for output. Instructions with relocatable 
operands are partially processed. Final assignment of the 
operand address is made after analysis In the output phase. 

Address modes are identified in the input phase. All instructions 
with two-word relative addressing mode are flagged as one-word 
candidates. Instructions with no address mode field and those 
with a mode other than two-word relative are flagged as fixed 
length but not ready for output. 

Pseudo instruction records are placed in the output buffer by 
subroutine INOUT. When an END record is 

encountered control is passed from P/f/f5£C to the output phase. 


5.1.2 


5.1.3 


5.1.4 


Data Strings 

Data strings are completely processed in subroutine DATAST. A 
separate output record, identified as an ORG record, is constructed 
for each datura In the same format as the pseudo instruction record. 

Format Records 

Format records are completely processed in subroutine PHASEC 
ORG records containing two ASCII characters are constructed in 
the same format as the pseudo instruction record. 

Record Formats 


5. 1.4.1 Input Record Instruction Codes 


5. 1.4.2 

5. 1.4. 3 


5. 1.4.4 


5. 1.4.5 


5. 1.4.6 


5. 1.4.7 


Breakdown of Input Record Indicator 
Input Pseudo Instruction Record Formats 
Output Record Formats 
Assembler Instruction Type Codes 
Breakdown of Output Record Indicator 
C and Ccmmon ^lo*^ks 
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INPUT RECORD INSTRUCTION CODES 


Instruction Code 

BSS 1 

ADC 2 

CON 3 

END 4 

PARAMETER STORE 5 

STATEMENT NO. 6 

JMP 10 

RTJ 11 

LDA 12 

AND 13 

STA 14 

STQ 15 

RAO 16 

ADD 17 

SUB 18 

LDQ 19 

DVI 20 

ADQ 2 1 

MUI 22 

EOR 23 

KLDQ (I register load) 28 
KSTQ (I register store) 29 
ENA 30 

INA 31 

ENQ 32 

INQ 33 

LRS 34 

LLS 35 

QRS 36 

QLS 37 

ARS 38 

ALS 39 
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Instruction Code 


Conditional Jump 


A Jump 0 

40 

A Jump = 0 

41 

A Jump ^ 0 

42 

A Jump ^ 0 

43 

A Jump 0 

44 

A Jump > 0 

45 

Q Jump ^ 0 

46 

Q Jump = 0 

47 

AAQ A 

60 

TCQ A 

61 

TRA Q 

62 

TCA A 

63 

LAQ Q 

64 
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BREAKDOWN OF INPUT RECORD INDICATOR 


Bit No. 

Holder Name 

15 

NL 

14 

NT 

13 

NA 

12 

NS 

11 

ND 

10 

NR 

9 

NQ 

8 

NF 

7-2 


Instruction 

NTYPE 

code ^ 2 

= 0 


= 1 


= 2 


= 3 


= 4 


= 5 

Instruction 

NTYPE 

code = 2 

= 0 thru 5 


Meaning 

Not used in input phase. 

This record is a label 

This record has an additive 

This record has an index 

Use indirect addressing mode 

Use two-word constant 
Addressing Mode 

Assign index to Q register 

Not used in input phase 


Addressing mode to be assigned. 

Absolute operand. Use one-word 

direct addressing mode. 

Absolute operand. Use two-word constant 

addressing mode. 

Not used 

Operand is relocatable 
Address constant 

Operand is absolute 
Address constant 

Instruction is address constant type 
0 through 5. See description of 
address. Constant types under 
Subroutine PHASE 5 (5.1.5.) 


1-0 


NOWI 


Number of words in the record minus 2. 



INPUT PSEUDO INSTRUCTION RECORD FORMATS 
(Assembly Input Phase) 


INSTRUCTION 

WORD 1 

WORD 2 

WORD 3 

WORD 4 

WORD 5 

Holder Name 


NOPC 

NOPT 

NADD 

NXPT 

LABEL 

Indicator 

Label Pointer 




BSS 

Indicator 

Instr Code 

Size 



ADC 

Indicator 

Instr Code 

Address Pointer 

Additive 


CON 

Indicator 

Instr Code 

Constant 



END 

Ind icator 

Instr Code 




Parameter Store 

Indicator 

Instr Code 

Operand Pointer 



Statement Number 

Indicator 

Instr Code 

Statement No. 



Storage Reference Instr 
Type Code # 1 or 2 
Type Code = 1 or 2 

Indicator 

Indicator 

Instr Code 
Instr Code 

Operand Pointer 
Operand 

Additive 

Index Pointer 

Register Reference and 
Shift Instructions 

Indicator 

Instr Code 

Operand 



Inter- Register Instr 

Indicator 

Instr Code 




o 



o 




■D -O 
2 * 
oo 

2 o 

C C 

o o 


z z 
o > 


< 

m 

CA 

5 

z 


Ct 

0 
*1 

01 

to 

ro 


'p 


> 

> 

n 

z 


cr» 

m 

?o 


I tn 

» 

0» 


IE 

in 

Z 


I 



DOCUMENT CLASS ,1MS PAGE NO 


OUTPUT RECORD FORMATS 

(Assembly Input Phase to Assembly Output Phase) 


INSTRUCTION 

Holder Name 

LABEL 

BSS 

ADC 

CON 

END 

Statement Number 

Storage Reference Instr, 

Type Code = 1 
Type Code ^ 1 


Register, Reference, Shift 
and Inter-register 
instructions 
Skip Instructions 
ORG 

Continuation ORG 


Indicator 

Indicator 

Indicator 

Indicator 

Indicator 

Indicator 


Ind icator 
Indicator 


Indicator 

Indicator 

Indicator 

Indicator 


Label Pointer 
Size 

Address Pointer 
Constant 


Statement No. 


Binary Instr 
Bits 15-8 
Binary Instr. 
Bits 7-0 
^Operand Code 


Binary Instr 
Binary Instr 
Address Pointer 
Data Word 


Additive 

2nd word of a 
Floating Point 
Constant 


Operand or 
Operand pointer 


Additive 


Index 

Pointer 


2^0 
5 » n 

20 o 
o o P 
c c £ 
n n > 


WORD 1 

WORD 2 

WORD 3 

WORD 4 

WORD 5 j 


NOPC 

NOPT 

NADD 

NXPT 


Data Word 


* Operand Code = 


pointer to operand in symbol table 

pointer to operand in IDVTAB 

pointer to operand in NDSTAB 

Absolute operand 1 
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1700 


ASSEMBLER INSTRUCTION TYPE CODES 


Code 


Addressing Mode 


Instruction 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 


One-vrord direct Storage Reference 

One-word Indirect 

One-word relative 

One-wrod relative, Indirect 

Two-word constant, 2nd word 

is an absolute address constant 

Two-word constant, 2nd word 

is a relocatable address constant 

Two-word absolute 

Two-word absolute. Indirect 

Two-word relative 

Two-word relative, indirect 

Register reference 
and shifts 
Conditional Skips 
A register 0 

A register = 0 

A register ^ 0 

A register ^ 0 

A register ^ 0 

A register 7 0 

Q register = 0 

Q register ^ 0 


20 

21 

22 

23 

24 


Conditional Jumps 
A register # 0 
A register = 0 
A register ^ 0 
A register > 0 
A register ^0 
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25 

2b 

27 

3D 

31 

32 

33 

MD 

m 

H2 

M3 

MM 

MS 

Mb 

M7 

Mfl 

SD 

51 

52 

53 
S=i 
bD 


A register □ 

(2 register = D 

(2 register ^ 0 

AA(2 A 

TCl2 A 

TRA a 

TCA A 

LAl2 l2 

BSS 

ADC Type 1 

ADC Type 2 

ADC Type 3 

ADC Type M 

ADC Type 5 

Integer Constant 

Real Constant 

Double Precision Constant 

Data ORG 

Data Continuation ORG 
Program ORG 

Program Continuation ORG 
Statement No. 

END 
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Breakdown of Output Record Indicator 
Bit No. Holder Name Meaning 


15 

NL 

Skip this record 

14 

NT 

This record is a label 

13 

NA 

Operand address has an additive. 

12 

NS 

Operand address is indexed. 

11 

ND 

This record is ready for output. 

10 

NR 

This record is fixed length 

9 

NQ 

Flag for address constant sub- type 

8 

NF 

Flag for address constant sub- type 

7-2 

NTYPE 

Assembler instruction type code. 
See list. 

1-0 

NOWI 

Number of words in the record 
minus 2. 
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LIST OF HOLDERS, COUNTERS, FLAGS BUFFERS AND TABLES 
IN PHASE C and D/E COMMON BLOCKS 
NAME USE 


ICFLAG 
I COUNT 
ICT 
IDECR 

IDVTAB(312) 

IFIX 

INBUFF (203) 
INCT 


Change flag set in ADMAX 

Program counter 

Program counter increment 

Program address decrement set in ADMAX 

Table of address holders built in CHOP 

Fixed buffer indicator set in AMOUT 

Input buffer 

Index for INBUFF and NOBUFF. In phases D/E, 
circular buffer pointer to NOBUFF (always 
increases) 


ISCOUN 

ITCOUN 

lUSE 


Holder for ICOUNT saved from input phase 

Holder for ICOUNT saved from output phase 

Flag indicating use of I register in object 
program 


IV(5) 

IXC 


Temporary storage 

Occurrence flag for index to be assigned 
set in CHKWD and IXOPT 


IXF 

IXFLAG 

IXQ 

IXSl (10) 
IXS2 (10) 


Holder for contents of object time I register 
Decision flag set in CHKWD 

Holder for contents of object time Q register 

Table of saved indexes built in IXOPT 

Table of occurrence flags for saved indexes 
built in IXOPT 
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MACHINE SERIES UQSL 


NAME 
IXS3 (10) 

IXSX 

LRS 

NA 

NADD 

NADX 

NASCI 


USE 

Table of equivalence table indexes 
for saved indexes built in IXOPT, 

Index for IXSl, IXS2 and IXS3. 

Flag indicating instruction is LRS 16. 

Additive flag extracted from record 
indicator. 

Additive to instruction operand address, 
Index for IDVTAB. 

Holder for alpha output word used in 
SETPRT. 


NATYPE Assembly instruction type code in input 

phase. Index to alpha opcode table 
in output phase. 

NBFL Flag for last word in binary output 

record. 

NBINC Punch buffer index. 


ND Indirect flag extracted from record 

indicator in input phase. Flag indicat- 
ing instruction is ready for output 
in output phase. 

NDFL Temporary holder for "ready for out- 

put" flag used in CL12. 

NDSTAB(500) Table of dummy parameter address 

holders built in CHOP. 


NDXJ 


Temporary holder for ICOUNT. 


NF 


NFTAB(160) 


Flag in the record indicator used in 
PHASE 5 and AMOUT to indicate sub- 
type of address constant. 

Table of futures built in AMOUT. 


NL 


Indicator flag to ignore this record. 
Used in AMOUT. 






C A I jpfM «r V 10*6 ? 




CONTROL DATA CORPORATION 
_ - DIVISION 

i 

OnruMFNT Cl ASS 

S-IS 

- - PAf.p; NO 

( 

Pnnniir T M&Mt. 1700 MASS STORAGE 

FORTRAN 


PRnnnrr MOnPi wn CODS V.S«D 

MArniNF '>FRiF'; 1700 


NOBW 

Number of binary words currently 
in the punch buffer 


NOCT 

NOBUFF index used in input phase 
In output phase D/E, next avail- 
able entry in circular buffer. 


NOBUFF (210) C 

(1152) D/E 

Output buffer passed from the input 
phase to the output phase 


NODS 

Index to NDSTAB 


NOFS 

Index to NFTAB 


NOPC 

Instruction code in input phase 
Partial or complete binary word 
in output phase 


NOPT 

Pointer to operand location in 
the symbol table 

< 

NOUTOT 

Total number of words in NOBUFF 
In Phases D/E, last entry in 
circular buffer 


NOWI 

Number of words in the input re- 
cord extracted from the record 
indicator 


NOWO 

Number of words in the output 
record. Used in the input 
phase 


NPCBF(57) 

Punch buffer 


NPTBF(55) 

Print buffer 


NPTBFX 

Print buffer index 


nq 

Flag extracted from the record 
indicator indicating the index for 
this instruction has been assigned 
to the Q register. Used in the 
output phase as a flag for an 
ADC sub- type. 

( 

NR 

Two word instruction flag extract- 
ed from the record indicator in 
the input phase. Fixed length 
flag in the output phase. 
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NAME 


USE 


NRCD(5) 

NRCl 

NRC2 

NRM 

NS 


NSETX 


Btiffer for output record. Used 
in the input phase. 

Address relocation holder 

Address relocation holder for second 
word of a two-word instruction 

Program relocation holder 

F] ag extracted from the record 
indicator indicating the 
instruction address is indexed 

Print buffer index 


NSUMD 


Total number of storages in 
IDVTAB 


NSUMDS Total number of storages in 

NDSTAB 

NSTYPE Flag set when first executable 

instruction of the object 
program is encountered 

NT Flag extracted from the record 

indicator indicating this 
instruction is a label 

NTYPE Holder for address type extract- 

ed from the record indicator 
in the input phase. Used for 
assembler instruction type in 
the output phase. 

NSUMVS Total number of storages in 

NFTAB 

NW2 Holder for second binary word 

of a two-word instruction 

NW2FL Flag indicating a two-word 

instruction 

NX Index for INBUFF and NOBUFF 

used in BKDWN 
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NAME 

NXCON 

NXPT 

I HEAD 

INOB 

INC 


USE 


Holder for hex or decimal 
output word used in SETPRT 

Pointer to index address in 
the symbol table. 

Pointer to 'beginning' of 
circular buffer (always in- 
creases) . 

Size of NOBUFF, used to 
reference circular buffer in 
phases D/E 

Actual subscript in NOBUFF, 
calculated from INCT modulo 
INOB, by subroutine INDEX 
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5.1.5 Subroutine PHASEC 

Subro»itine PHASEC is the first subroutine entered in the FORTRAN 
Assembler. Symbol table location holders, other than common, are 
backgrounded to 7FFF^^. The first input record Is read here. 
Subsequent records are usually read in subroutine INOUT. They 
may be read in other routines if a forward scan is initiated at 
the bottom of the current input buffer. 

If the input record is a data string or a format record the 
subroutine branches imnediately to process the record. If the 
input record is a pseudo insfuction record, subroutine BKDWN 
is called to detemine the type of pseudo instruction. 

Following are descriptions of the types of pseudo instructions 
encountered and their processing. 

LABEL - Subroutine CHKWD is called to destroy any indexes saved 
in subroutine IXOPT since they will not be valid after a 
label is encountered. If this is a statement label, sub- 
routine LABEL is called. If this is a variable or constant 
label and the first executable instruction has not been 
encountered, subroutine LABIN is called. If the first 
executable instruction has been encountered, subroutine 
LABEL is ca lied. 

BSS - Call subroutine BSS 

ADC - If the address constant is an external and if this is 
the first encounter, the program counter is put in the 
symbol table. If this is not the first encounter, the 
output record is set up without recording the program 
counter. 

If the address constant is not an external, it may be 
any one of five types. 

Type 1 - An entry in a table of addresses set up for a 
computed GO TO. Address is relative to refer- 
enced location computed in 16 bit arithmetic. 

Type 2 - A parameter in the calling sequence to a floating 
point subroutine when using relative addressing. 

By examining the run anywhere switch and the 
setting of the dummy argument identification bit 
in the symbol table, type 2 is broken down into 
four sub-types. 

Parameter is not a dummy argument 

Address is relative to referenced storage computed 
in 15 bit arithemtic with bit 15 set to zero. 


.,5" 
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Parameter is a dummy argument 

Run an3^here program - address is relative to 
referenced storage computed in 15 bit arithmetic 
with bit 15 set to one. 

Non-run anywhere program - If the parameter has 
been referenced, this address is the location of 
the previous reference with bit 15 set. If the 
parameter has not been referenced, this location 
will be stuffed with the computed address of the 
dummy argument. 

Type 3 - Parameter in a calling sequence to a subroutine 
other than floating point. Address is relative 
to referenced location computed in 15 bit arithmetic 
with bit 15 set to one. 

Types 4 & 5 are parameters in a calling sequence to a 
subroutine other than floating point or to a 
floating subroutine when absolute addressing is 
used* 

Type 4 Is the relocatable address of the referenced 
location. Type 5 is the absolute address of the 
referenced location. 

The actual address is not computed in subroutine PHASEC bits NQ 
and NF in the indicator are used to flag the setting of bit 15 
and the type of address to be used. 

CONSTANT - Call subroutine CON 

PARAMETER STORE - This is a STA command with a special type code 

that tells the assembler the A register contains 
a computed address to be stored in a dummy parameter 
address holder. The first holder is always in the 
symbol table entry for this dummy parameter. The 
dummy parameter table is searched for any other 
holder that may have been created to maximize the 
use of one-word relative, Indirect addressing. 

A store Address record is built for each holder. 

The first Store Address record contains a pointer 
to the entry iq the symbol table. Subsequent 
records contain a pointer to the entry in the 
dummy parameter table. 
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PRODUCT NAME IIOP, 
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PAGE NO. 


5-eo 
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— MACHINE SERIES - 


STATEMENT NO. - These are numbers generated consecutively 

by the FORTRAN Compiler for each FORTRAN 
source record. The output record 
applies to list output only. 


STORAGE REFERENCE COMMAND - Call subroutine CL12. On 

return from subroutine CL12, if the 
storage reference command is an un- 
conditional jump, the symbol table is 
searched for variable and constant 
holders and dummy parameter address 
holders that are ready for output. 
Variable and constant holders are 
ready for output when they have been 
used as the operands in a store type 
command. Dummy parameter address 
holders are ready for output after 
the first reference. Holders are identi- 
fied as ready for output in Subroutine 
CHOP. LABEL and BSS records are con- 
structed for each holder to be output. 

The current program location is en- 
tered in the symbol table. 

The dummy parameter table is also search- 
ed for any additional dummy parameter 
address holders to be output. A BSS 
record is constructed for each holder 
to be output. The current program 
location is entered in the dummy 
parameter table. 


REGISTER, SHIFT and INTER- REGISTER COMMANDS - Since 

these three types of commands have 
absolute operands , the binary output 
word is completely constructed. The 
output record is flagged "ready for 
output” . 

If the command is an LRS 16 the 
assembler examines the next record to 
see if it is an indexed DVI. If it 
is, and if the index in the DVI record 
is not in the I -register holder, sub- 
routine QXLD is called to construct 
the necessary index load and store 
commands to be inserted in the output 
buffer prior to the Long Right Shift 
Command. The index in the DVI command 
is placed in the I register holder. 


SKIP - Call Subroutine Skip 



' ^ ' ) 
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END - The Symbol table and the dummy parameter 

table are searched for holders to be identi- 
fied as described under Storage Reference 
Commands. A dummy ENA record is output to 
avoid a possible BSS as the last command 
in the program. 

In the 16K version of 1700 Fortran, the 
current symbol table page is written and 
the page size is changed from 2400 to 960. 
Control passes to the assembler output 
phases D/E. 
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Subroutine BLDIJI* and INOUT are called to coinplett^ pieces:^ mg of 
the output record. Subroutine COUNT is called if the instruction 
to be output will occupy a storage location in the binary object 
program. 

Records placed in the output buffer from subroutine PHASEC 
are flagged as "fixed length" or "ready for output”. Bits NR 
and ND in the indication are used for this purpose. A fixed 
length instruction that is not ready for output is cne with 
a forward storage reference that cannot be defined until ift^-r 
analysis in the output phase. 

5. 1.5. I Flow Chart of Subroutine PHASEC 


5. 1.6 


5. 1.6. 1 


Subroutine BKDWN 


The function of subroutine BKDWN is to extract 
information in the pseudo instruction record. 
Input Phase, these are the records constructed 
FORTRAN Compiler pass. In the Assembly Output 
the records constructed in the Assembly Input 


and store the 
In the Assembly 
in the previous 
Phase, these are 
pha sc . 


See 5.1.4 for a detailed list of the input record breakdown. 
Flow Chart of Subroutine BKDWN 


5. 1.7 


1.8 


5. 1.8. I 


Subroutine BLDUP 

Subroutine BLDUP sets up the records that ire o'JtpuL fror^ tU ■ 
assembler input phase. See 5.1.4 for output record fornrit. 

Flow Chart of Subroutine BLDUP 

Subroutine BSS 

Subroutine BSS constructs a BSS output record. The progran.s 
counter is incremented by the size of the BSS. The record is 
flagged ready for output. 

A BSS size of minus one in the input record identifies the T 
register holder which may be eliminated in the assembler output 
phase. In this case, the output record is not flagged reoviy 
for output. 

Flow Chart of Subroutine BSS 
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5* 1*9 Subroutine CHKWD 


Subroutine CHKWD is used in the input phase of the FORTRAN 
Assembler. It checks all pseudo instructions to determine what 
effect, if any, they will have on current or future index register 
assignments. CHKWD is called from subroutine PHASE 5 whenever a 
label record is encountered and from subroutine IXOPT in both 
its primary and secondary scans of the input buffer. 


The following pseudo instruction records may affect index 

register assignment: 

Label - All index holders are cleared 

Return Jump - Any index holders containing addresses in the 

COMMON area are cleared. If an address currently 
to be assigned to an index register is in the COMMON 
area, the decision flag is set. 

Address Constant - Any index holders containing this address 

constant are cleared. If an address currently to 
be assigned to an index register is this address 
constant, the decision flag is set. 

Store Instruction - Any index holders containing the address of 
the operand of the store instruction are cleared. 

If the operand of the store instruction is in an 
equivalence chain, any index holders containing 
addresses in the same equivalence chain are cleared. 
If an address currently to be assigned to an index 
register is the same as the operand in the store 
instruction or is in the same equivalence chain, 
the decision flag is set. 


Q Destroying Instruction - The Q register index holder is cleared 
and the occurrence flag is set. 

The occurrence flag is set when an instruction affects index 
register assignment but is not decisive. The decision flag is 
set when an instruction is encountered that decides the index 
register assignment. These flags have meaning only if there is 
an address currently to be assigned to an index register. 


5. 1.9.1 Flow Chart of Subroutine CHKWD 
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5.1.10 Subroutine CHOP 

The function of subroutine CHOP is to flag all defined operands 
for which no holder has been generated, to build tables of address 
holders, and to determine the addressing mode of all storage 
reference commands for which no address mode has been set in the 
previous pass. 

An operand to be located within the body of the object program 
is flagged as defined if it is used in a store instruction or if 
it is an address constant. Holders for defined operands are 
generated following the next encountered unconditional jump 
instruction or at the end of the program. 

An operand whose address is not within the body of the object 
program that is, COMMON locations, externals, functions and 
dummy parameters, is flagged as defined on first encounter i. 

Holders for the operand addresses are generated following the 
next encountered unconditional jump instruction or at the end 
of the program. 

Subroutine CHOP builds two tables of address holders, IDVTAB and 
NDSTAB. 

Entries are made in IDVTAB for instructions referencing operands 
within the body of the object program when neither the operand 
holder nor any previous table entry for this operand can be 
reached with one-word relative direct or indirect addressing mode. 
The address of the referencing instruction and the address of the 
operand holder are entered in the table. Addresses of instructions 
referencing operands located in COMMON and a pointer to the operand 
address are also entered in IDVTAB on first encounter of the 
operand reference if the use count is greater than one. Subsequent 
references to the same operand are entered in IDVTAB if no previous 
reference can be reached with one-word, relative, indirect 
Addressing Mode. 

Entries are made in NDSTAB for instructions referencing operands 
outside the body of the object program (excepting COMMON locations) 
when neither the operand address holder defined in the symbol 
table nor any previous table entry for this operand holder can be 
reached with one-word, relative, indirect addressing mode. Entries 
consist of the address of the referencing instruction and a pointer 
to the operand address. 
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Addressing modes for instructions referencing operands lo- 
cated within the body of the object program are made one- 
wordf relativef direct if the operand holder can be reached 
or one-wordr relativer indirect if a table entry for this 
operand can be reached. If this instruction address is 
entered in IDVTABr the addressing mode is two-word absolute. 
If the operand has not been defined, the addressing mode 
is two-word relative, direct. 

Addressing modes for instructions referencing operand 
addresses outside the body of the object program are made 
one-word, relative, indirect if a previously defined 
address holder can be reached. If this instruction is en- 
tered in NDSTAB, the addressing mode is two-word, relative, 
indirect. In the case of an operand located in COfinON, the 
addressing mode is two-word absolute if the instruction is 
entered in IPVTAB. 

5. 1.10.1 Flow Chart of Subroutine CHOP. 

5. 1.10. 2 Formats of IDVTAB and NDSTAB 
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5.1.11 Subroutine CL12 

Subroutine CL12 processes all storage reference instructions. If 
the operand of the instruction is an absolute address or a constant 
the binary output word is completely constructed and the output 
record is flagged ready for output. If the operand is a reference 
to a relocatable storage, the operation code field and the address 
mode field of the binary word are constructed. The address mode 
is determined either by the previous pass or by a call to Subroutine 
CHOP. 

Special type codes are assigned to compiler generated instructions 
to save, restore and hold the I register for use in Subroutine 
ADMAX in the output phase of the Assembler. 

5.1.11.1 Flow Chart of Subroutine CL12 

5.1.12 Subroutine CON 

Subroutine CON generates holders for constants as directed either 
by the previous pass or by Subroutine LABIN and CHOP in the Assembly 
input phase. 

5.1.12.1 Flow Chart of Subroutine CON 

5.1.13 Subroutine DATAST 

Subroutine DATAST processes a string of data. Holders for data 
defined within the body of the object program are generated at the 
beginning of the object program by subroutine LABIN. Locations of 
data defined in labeled C0Ml!K)N are assigned by the previous compiler 
pass. 

An ORG record is constructed for each datum containing a pointer 
to the location of the array, the datum and address additive. 

ORG records are typed as program ORG or data ORG according to their 
location. A data word that is in a string of consecutively located 
data is typed as a program continuation ORG or a data continuation 
ORG according to the location of the array. ORG records are flagged 
ready for output. 

5.1.13.1 Flow Chart of Subroutine DATAST 

5.1.14 Subroutine INOUT 

Subroutine INOUT is the connecting subroutine between the input phase 
and the output phase of the FORTRAN Assembly pass. It reads records 
into the input buffer and writes records into the output buffer 
until the output buffer is full or an END record is encountered. 
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When the output buffer is full or an END record is encountered, pro- 
gram contro 1 passes to the Assembly output phase through a call to 
Subroutine AMOUT. On return from Subroutine AMOUT program control 
is passed back to the assembly input phase unless an unprocessed 
END record is present in the output buffer. In this case, program 
control is returned to the output phase. 

Subroutine INOUT also reads forward in the input buffer or re-fills 
the input buffer if necessary, to check for an indexed divide instruc- 
tion following a long right shift instruction. 

5.1.14.1 Flow Chart of Subroutine INOUT 

5.1.15 Subroutine IXOPT 

The function of Subroutine IXOPT is to assign index registers to 
indexed instructions. It is called from subroutine PHASE 5 for 
all pseudo instruction records except labels. 

If the instruction being processed is not indexed, Subroutine CHKWD 
is called to determine its possible effect on future indexing. If 
the instruction is a store address with no additive present, the 
operand po inter is saved in the A register ho Ider . Otherwise, the 
A register holder is cleared. 

If the instruction being processed is indexed, any of the five fol low- 
ing conditions will result iii index register assignment without 
further ana lysis of the input buffer. 

1. This index has been assigned to the Q register by the pre- 
vious compiler pass. 

2. This instruction is an indexed DVI. The index is assigned 
to the I register. 

3. This index is current ly in the Q register holder. It is 
assigned to the Q register. 

4. This index is currently in the I register holder. It is 
assigned to the I register. 

No indexing instructions are generated in the above four cases. 

5. Subroutine CHKWD sets the decision flag. This index is 
assigned to the Q register. An LDQ instruction is generated 
unless the index is in the A register holder. In this case 
a TRA Q instruction is generated. 

If none of the above five conditions is true, the input buffer is 
scanned forward until enough information is obtained to make the 
assignment. 

The forward scan stops and the index register under consideration 
for assignment is assigned to the Q register when one of the 
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following conditions is true. 

1. The decision flag is set in Subroutine CHKWD. 

2. The same register as that in the I register holder appears. 

3. The same register as that in the Q register holder appears. 

A STQ I instruction is generated before the index load 
instruction. 

4. A different index appears twice. An index is counted as 
appearing twice only if its occurrence flag has been set 
since its last appearance. 

5. A DVl instruction with no index or with an index different 
from the one under consideration is encountered. 

6. A label record is encountered. 

7. The scan reaches the end of the input buffer with no 
decision. 

An tOQ instruction is generated except when the index is in the A 
register holder. In this case a TRA Q instruction is generated. 

The forward scan stops and the index under consideration for 
f assignment is assigned to the I register when one of the following 

conditions is true. 

1. The index under consideration appears again. It is counted 
as appearing again only if its occurrence flag has been 
set. 

2. A DVI is encountered with an index the same as the one 
under consideration for assignment. 

An STA I instruction is generated if the index under consideration 
is in the A register holder. LDA, STA I instructions are generated 
if the instruction being processed is an LDA. Otherwise, the instruc- 
tions generated are LDQ, STQ I. 

The occurrence flag is set for the index under consideration if a 
Q destroying instruction is encountered in the forward scan of the 
input buffer. The occurrence flags for the index under consideration 
and all saved indexes are set when an index appears that has not 
previously been encountered either in the buffer or in the Q or 
I register holders. 

5.1.15.1 Flow Chart of Subroutine IXOPT 

5.1.16 Subroutine LABEL 

Subroutine LABEL constructs output records for statement and variable 
' labels. The program counter is stored in the symbol table entry for 

the label being processed. The record is flagged ready for output. 



































5-S3 






tf 










< 





0 





0 




1 

ttf 




1 

> 




1 

o 




1 

ff 





a 





a 





< 





T 




1 








UI 




tt 

2 


k 

d 

0 

4 


1 

z 

1 

Z 


Ui P 

H 

»- 


d 


U 

w 

U 

li) 

U 

ill 

z 


“» 

-» 



u:? 

0 

0 

0 


m i 

c 

a 

a 

< 

<1 

a 

a 

a 

H 

1 

a 





a 


rr 


1 

r- 




1 

r-^ 


a 

o 


1; 

1 

t— 

V 



i 

a. 

ai 


u 1 

I 


o 

Ui 


O®- 

<> 

2*~ 

X 

H 

1? 

< 

a 

yuj 

< 

0 







Ui 


M4 



2: 


2o 



M 





h- 



1 


Z3 





O 





ir 



j 

(/I 

CD 



1 

e: 

3 



1 

M 

(/) 



1 

H 

1- 



} 


ZUI 



> ' 

uS 

W J 


NUMBER 

£D| 

2< 

3 J 

0 

3- 

0 

0 


Z ; 

Si 

a ■ 

0 


X 

o 

< 

o 

(L 

OC 

u 

< 

Sc 

a 

o 

X 

o 

u 


□EDl 


y 

9 »- 


y 

j 
CD 
< 

< z 

^ o 

o u 

ji m 

y o 


< 


m 


o 


Q 

















S-SM 


1 



kf 

h 

< 

O 


O 

Ui 

> 

o 

BC 

0. 

a 

< 


I 



c 

0 

1 

h 

O 

y 

n 

o 

oc 

a 


CL 

O 

X 

M 


IxJ 

z 

M 

h“ 

ZD 

O 

(K 

CD 

ZD 

t/) 


Zui 

Sf! 

!3~ 


U*" 

0 

0 




□snn 





m 


o 


Q 


A A \ 385 (FORMER LV C A127-1 ) 






















5.1.16.1 Flow Chart of Subroutine lABEL 

5.1.17 Subroutine LABIN 

Subroutine LABIN Is called from subroutine PHASE C to assign storage 
locations to certain variables holders, constants and arrays. 

LABIN Is called only If the first executable statement of the object 
program, excluding the jump at the beginning of a main program, has 
not been encountered. 

Storage locations are assigned for all equlvalenced arrays, all 
DATA arrays and all other arrays which occupy more than twenty 
locations. Arrays occupying twenty locations or less are assigned 
storage locations If their use count Is less than one third the 
size of the array. 

Storage locations are also assigned to variable holders which are 
used only once and to referenced constants. 

All other variable holders, constants and arrays are Ignored by 
subroutine LABIN. Storage assignments will be made for these Items 
after they are used In the object program. 

5.1.17.1 Flow Chart of Subroutine LABIN 

5.1.18 Subroutine QXLD 

The function of Subroutine QXLD Is to generate Indexing Instructions. 

According to the Input parameter, QXLD will generate a LDA, LDQ, 

STA I, STQ I or TRA Q. If the Instruction to be generated Is a 
LDA or LDQ, Subroutine CHOP Is called to determine the addressing 
mode. Subroutines BLDUP, INOUT and COUNT are called to output the 
Instruction and bump the program counter. 

5.1.18.1 Flow Chart of Subroutine QXLD* 

5.1.19 Subroutine SKIP 

Subroutine SKIP generates one or two conditional skip Instructions 
and a two-word relative unconditional jump Instruction for every 
conditional jump Instruction encountered In the Input buffer. 

The skip records are flagged as fixed langth. The jump Instruction 
is a candidate for reduction to one word or elimination In the 
Assembler output phase. 

Below are listed the conditional jump instructions received from the 
previous compiler pass and the corresponding instructions generated 
by the assembler: 
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Conditional Jump 

Instruction Generated 

A Jump ^ 0 

SAZ 

JMP 

2 

A Jump == 0 

SAN 

JMP 

2 

A Jump < 0 

SAP 

JMP 

2 

A Jump 2" 0 

SAM 

JMP 

2 

A Jump ^ 0 

SAZ 

1 


SAP 

JMP 

2 

A Jump > 0 

SAZ 

3 


SAM 

JMP 

2 

Q Jump =® 0 

SQN 

JMP 

2 

Q Jump # 0 

SQZ 

JMP 

2 


5.1.19.1 


Flow Chart of Subroutine SKIP 
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5.2 ASSEMBLER OUTPUT PHASE D/E 

In phase D/E the pseudo-instructions output by phase 
C are converted to relocatable code. Address opti- 
mi-zation and final assignment take place in this 
phase. The 'D/E' notation is used because for a 
given compilation either phase D or phase E is exe- 
cuted, but not both. Phase E is loaded and executed 
whenever the A or M options (assembly listing) 
arc requested, otherwise phase D is used. The 
relocatable code output by phase D/E is punched on 
cards and/or stored on the load-and-go file accord*- 
ing to the P and X options respectively. 

5. 2. 0.1 Distinction between Phases D and E. 

Phases D and E are virtually indentical with two 
major exceptions. First, subroutine SETPRT and all calls 
to SETPRT are omitted from Phase D. Second, in the 
2.0A version of 1700 FORTRAN phase D uses a 'com- 
pressed' symbol table requiring two words per entry, 
as opposed to the five words required by the normal 
symbol table. The structure of this compressed 
symbol table is: 

15 14- 11 10 - 8 7-5 4-2 1 0 

First word 

of entry KDUMY IREL lEXT 


Second word 
of entry 

The meanings of the above variable names are found 
in the Chapter 7, where the normal symbol table is 
described. In the 5.QA version of Phase D, sub- 
rountine BEGINO packs the normal symbol table into 
the compressed symbol table. Subroutines GETSYM 
and SYMSCN are altered to reference the compressed 
table, and all routines except BEGINO and FINISH 
have access only to the compressed symbol table. 

In thoS.QA version of Phase D, subroutine AMOUT 
stores the IRSA entries of externals into INBUFF 
after the END record is processed, and subroutine 
FINISH retrieves these entries from INBUFF rather 
than from the normal symbol table. 
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5. 2. 0. 2 Circular output buffer 

Subroutine PHASE6 in phase D/E reads the output of 
phase C and stores it in the output buffer NOBUFF. 

For effective address optimization, NOBUFF must 
be filled at the 'bottom' as instructions at the 
'top' are converted to relocatable code and output. 

To speed this process the storage assigned to NOBUFF 
is referenced by 'circular buffer pointers' that 
always increase. The NOBUFF subscript is calculated 
by reducing the given pointer modulo INOB (NOBUFF size) 
using the function INDEX. In this way new information 
can be added to the output buffer without moving the 
unprocessed information xn core, and the virtual 
size of NOBUFF is infinite. Subroutine PHASE6 refills 
NOBUFF from the phase C disk output file as necessary, 
and initializes and maintains the major circular 
buffer pointers IHEAD ('top' of buffer), NOUTOT 
('bottom' of buffer) , and NOCT (next available buffer 
location) . 

5. 2. 0. 3 Summary of Phase D/E Flow 

Records flagged ready for output are sent through 
the output routines starting with the first record 
in the buffer and continuing until a record is en- 
countered that is not flagged ready for output. 

If this record is not sitting at the 'top' of the 
buffer, it is pushed to the 'top'. If no end record 
is present in the buffer, control is returned to 
PHASE6 to refill the buffer at the 'bottom.' On 
return, a forward Scan of the buffer is initiated 
to find instructions that are one-word candidates. 

When a one-word candidate is encountered, subroutine 
ADMAX is called to decide whether or not to reduce 
the instruction to one word. The methods used to 
delete commands, maintain the program counter and 
make final assignment of operand addresses are 
fully detailed in the description of subroutines 
AMOUT and ADMAX. The scan of the output buffer is 
repeated once. At this point the record at the top 
of the buffer plus any following records flagged 
ready for output are forced out of the buffer. If 
no END record is present in the output buffer, control 
is returned to PHASE6 to fill the output buffer and 
the process is repeated. 
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5.2.1 Subroutine PHASE6 

Subroutine PHASE6 is the main processor for phase D/E. 
It initializes the circular buffer pointers, calls 
subroutine BEGINO, fills the output buffer NOBUFF, 
and calls subroutine. AMOUT. At every return from AMOUT 
subroutine PHASES refills the output buffer at the 
'bottom', overlaying the pseudo-instructions that have 
been processed by AMOUT. After AMOUT has processed 
the END record and returned, PHASE6 calls subroutine 
FINISH, punches the transfer card at the end of the 
relocatable output, and returns. 

5. 2. 1.1 Flowchart of Subroutine PHASE6 

5.2.2 Subroutine BEGINO 


Subroutine BEGINO prints and punches the initial 
records of the final compiler output. It prints 
the length of labelled and blank common, converts 
the name of the program being compiled to ASCII 
dode, prints (phase E only) and punches the NAM 
record and the DAT and COM list. In the 16K version 
of 1700 FORTRAN, Subroutine BEGINO halves the symbol 
table page size and packs the full symbol table 
into the two-word entry compressed table used by 
phase D. 

5. 2.2.1 Flowchart of Subroutine BEGINO 

5.2.3 Subroutine AMOUT 


Subroutine AMOUT is the main processor for the output 
phase of the FORTRAN Assembler. Its function is to 
maximize use of one-word instructions, eliminate un- 
needed instructions, and send binary and ASCII out- 
put to the punch and list routines. 

AMOUT makes a primary scan through the output buffer 
sending all instructions that are ready for output 
through processing and to the output routines until an 
instruction is encountered that is not ready for out- 
put. The output buffer is then moved up to elimi- 
nate the processed instructions and PHASE6 is re- 
entered to fill the buffer. 

If the instruction at the 'top' of the buffer is not 
ready for output, a secondary scan is initiated in 
which no output is generated. Every instruction that 
is a candidate for reduction to one word or elimina- 
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tion is sent to Subroutine ADMAX. ADMAX sets a 
change flag if any instruction is reduced or eliminated 
The entire output buffer is scanned once. The pro- 
gram counter is initialized for each scan and kept 
current throughout the scan. 

In the E.QA versionr AI1T is used to call AMOUT . 
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; z. SC.4.H , the 

instruction at the top of the buffer must be output* If the address 
reference has not yet been identified or if the distance from the 
current location to the address reference is more than 1 236 , the 

instruction is stored in the future table. A binary output record 
to be read in at the current location at object time execution will 
be generated when the referenced location appears at the top of 
the output buffer. 

If the distance from the current location to the address reference is 
equal to or less than 1256 ., , the output buffer is fixed to the point 
of the forward reference. This is accomplished by storing the location 
of the forward reference in IFTX. The number or size of instructions 
to be output may not be changed as long as the location of the instruction 
or the location of its forward reference is less than or equal to 
IFIX. 


Processing of the instruction at the top of the buffer is completed 
and the record is flagged ready for output. AMOUT then goes back to 
the primary scan. 

When the END record appears in the output buffer, IFIX is set nega« 
tive at the end of the secondary scan to force all instructions out 
of the buffer. 




5. 2.3.1 Flow Chart of Subroutine AMOUT 

5. 2.3. 2 Format of the Future Table, NFTAB 

5.2.f Subroutine ADMAX 


Subroutine ADMAX analyzes the instructions sent to it for possible 
reduction in size or elimination from the object program. It is 
called from subroutine AMOUT when a record is encountered that is 
not flagged as fixed length or ready for output. 

There are three situations which may produce reduction in size or 
elimination of an instruction: 

1. The I register is not used in the object program. The 
compiler generated instructions to save and restore the I 
register and the I register holder are eliminated. 

2. The program counter is not fixed and the distance to the 
address reference is less than 128 The type of the two- 
word instruction is changed to the '^corresponding one-word 
type; that is, two-word relative direct or indirect becomes 
one-word relative direct or indirect. 
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5. 2. 7.1 


5.2.? 
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5 . 2.10 


3. The program counter is not fixed, the Instruction is a 

conditional Jump and the distance to the address reference 
is less than 16. «. The jump instruction is eliminated and 
the preceding sRip or skips are changed to reflect the elimlna* 
tion of the Jump. 

The fifteenth bit of the indicator is set in a record con- 
taining an instruction to be eliminated. This will cause 
subroutine AMOUT to ignore the record. 

A decrement count Is set for Instructions reduced in size 
or eliminated. Subroutine TABOEC is called to decrement 
all affected storage addresses. 

Flow Chart of Subroutine ADMAX 

Subroutine CONV 

Subroutine CONV converts a binary word to decimal format. It is 
handed two parameters by the calling program. The first is the loca- 
tion of the word to be converted; the second is the location into 
which the converted word is to be stored. 

Subroutine COUNT 

Subroutine COUNT increments the program counter. The increment 
holder, ICT, is always set at one unless re-set by the calling 
program. 

Subroutine FINISH 

Subroutine FINISH lists the program length, referenced externals, and 
undefined symbols, if any. It also generates binary external records. 

Flow Chart of Subroutine FINISH 

Subroutine lACON 

Subroutine lACON converts a two-word symbol name (ISYM - 
packed by CNVT) to ASCII format and stores it in the 
print buffer. 

Subroutine IHCON 

Subroutine IHCON converts a binary word to hex format and stores it 
in the print buffer. 

Function INDEX (INX) converts the circular buffer pointer 
INX (which always increases) to a subscript of NOBUFF. 

That is, INDEX (INX) is equal to INX modulo INOB (NOBUFF 
size) . 
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5.2.fl 


Subroutine LABOUT 


Subroutine LABOUT puts labels In the print buffer by calling subrou- 
tines lACON or IHCON as applicable. It also checks the future table, 
NFTAB, for references to this label. If any references are found, 
LABIN outputs a binary record origlned at the location of the instruc- 
tion referencing the label. The binary record contains the location 
of the label or the distance from the label to the reference depending 
on the addressing mode of the instruction. 


5.2. //.1 

5. 2. /a 


Flow Chart of Subroutine LABOUT 


Subroutine NPUNCH 


Subroutine NPUNCH outputs binary records from the punch buffer and 
clears the buffer. 


5.2.13 


Subroutine NP20UT 


5.2. IS. 1 
5.2.1^ 


Subroutine NP20UT sends one or two output images to the 
binary output routine and to the list output routine 
(Phase E only) according to the size of the instruction. 

The program counter is bumped for each image that is output. 
Flow Chart of Subroutine NP20UT 

Subroutine NWRITE 


Subroutine NWRITE outputs one list record from the print buffer and 
sets the buffer to ASCII blanks. 


5.2.15“ 


Subroutine PACK 


5.2.U 


5.2.16.1 


5.2.17 


Subroutine PACK is called from subroutine NWRITE to pack the output 
image in the print buffer. 

Subroutine RBDX 

Subroutine RBDX is called from subroutine RBPK to compute the location 
and position of a binary word and its associated relocation byte in 
the binary output record. RBDX is called from subroutine UNPUNC 
to compute the location and position of the "last word flag" in 
the binary output record. 

Flow Chart of Subroutine RBDX 

Subroutine RBPK 

Subroutine RBPK packs one binary word into the punch buffer. When 
the buffer is full, subroutine UNPUNC is called to empty the buffer. 
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5.2.17.1 


5.2.15 


5.2.15.1 


5. 2. If 


5.2.17.1 


Flow Chart of Subroutine RBPK 
Subroutine SETPRT 

Subroutine SETPRT constructs the opcode and address fields of 
a list output record and calls Subroutine NWRITE to output the 
record. SETPRT is in Phase E only. 

Flow Chart of Subroutine SETPRT 

Subroutine TABDEC 

Subroutine TABDEC is called frcr' subroutine ADMAX to decrement 
addresses that are affected by a change in the output buffer made 
in ADMAX. The symbol table, and the two tables of address holders, 
IDVTAB and NDSTAB, are searched for program addresses that are greater 
than the current program count. All such addresses found are decre- 
mented by the amount handed from ADMAX to TABDEC in the decrement 
holder, IDECR. 

Flow Chart of Subroutine TABDEC 


5.2.JW Subroutine UNPUNC 

Subroutine UNPUNC calls subroutines RBDX and NPUNCH to output 
the contents of the punch buffer. 


5.2.a<?.l 


Flow Chart of Subroutine UNPUNC 
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b.D 

b.l 


OBJECT TIME I/O ROUTINES 
GENERAL DESCRIPTION 


I/O Requests of the following forms are handled by the I/O 
routines: 


READ lurflL WRITE lurflL READ IklnlrflL 


WRITE Iklnl.flL 


READ lurf} 
READ luIL 
READ -Cu} 
BACKSPACE u 
EOF -Cu} 


WRITE {u,f} 
WRITE luIL 
REWIND u 
ENDFILE u 
lOCK lul 


READ Ikinifl 
READ -Ck-CnJJL 
READ Ikln}} 

OPEN C k f i » j r u » x> 
IFALT {ml 


WRITE {kln>,f> 
WRITE {k-Cn>}L 
WRITE -Ck-Cn}} 


where u is the logical unit number of an input/output devicet 
f is the number of a format statement r L is a 1 ist of 
parameters to be input or output » k is a file number r n is 
a sector number r i is the number of sectors per recordr 
j is the number of records per file, x is a starting sector 
number, and m is the type of floating point fault- 


b-B CALLING SEdJUENCE FOR I/O REQUESTS 


b-B-l Three Request I/O 

I/O requests with parameter lists generate calls to three 
routines: the initialize routine, the transmission routine, 
and the terminate routine- 

Initial i ze Rout i ne 

The initialize routine is named (3fl(3INI and has the following 
cal 1 ing sequence : 

RTJ aaflINI 

1- flag word 

B- I/O request number 

3- unit number or address of unit number 
M- format statement address or address of 
format statement address - 

for disk files, words 3 and 4 are: 

3- file number or address of file number 

4- sector number or address of sector number 

5- format information as in 4 for non-disk 

The bits of the flag word are designated to represent the 
following information: 

BIT SETTING 

IS Not Used 
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BIT SETTING 

IM 1 formatted 

0 unformatted 


13 1 unit number 

0 address of unit number 

12 1 format statement address 

0 address of format statement address 

11 1 list 

0 no list 


10 


1 read 
0 not read 


1 1 write 

0 not write 

a 1 disk I/O 

0 no disk I/O 


7 


1 sector number address 
0 address of sector number address 


t-O 


not used 


Transmission Routine 


The transmission routine is named flaflX and has the 
following calling sequence: 

RTJ flaflX 

1. address of list element 

Terminate Routine 


The terminate routine is named flaOEND and has the 
following calling sequence! 

RTJ (SaflEND 

b-2.2 One Request I/O 

I/O requests without parameter lists generate only a call 
to the initialize routine. The calling sequence is the 
same as described for flaflINI above. 
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b.2.3 Auxiliary Input/Output Statements Calling Sequence 

REWIND u 

RTJ (3a(3li)ND 

1. address of u 

BACKSPACE u 

RTJ (aacJBCK 

1. address of u 

END FILE u 

RTJ flaiSFLE 

1. address of u 

OPEN - allocate disk addresses and open disk file 
RTJ (SatSDFNF 

1. I/O request number 

E« address of file number 

3» address of number of sectors per word 

M. address of number of records per file 

S. address of logical unit number 

b. address of starting sector number 

Basic External Functions 

End of file check EOF 

RTJ EOF 

1 . address of u 

I/O error check lOCK 

RTJ lOCK 

!• address of u 

Floating point error condition check IFALT 

RTJ IFALT 

!• number Qt It E in binary 
b.E.S Special Calls 

Pause and stop statements 

PAUSE 


RTJ flatJPSE 
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PAUSE n 

RTJ (SfiiaPSEN 

1. octal number n In binary 

STOP 


RTJ (JfiSTP 

STOP n 

RTJ flaSTPN 

1. octal number n In binary 
b.3 DISCUSSION BY STATEflENT TYPE 

b.3.1 READ and URITE 

I/O requests of the form READ and WRITE are handled by the 
same I/O routines- The initialize routinen flfiflINIn 
interprets the information in the calling sequence and 
initializes the required routines. The transmission 
routine transmits the address of the element to the pro- 
cessing routine. If no FORMAT statement is involvedi 
the processing routine in AfiBINBi otherwise flflIFRM is the 
processing routine. When all the elements have been 
processed! (3fl(3END is called to terminate the input or 
output. 

READ and WRITE requests without a list are handled by the 
initialize routine! CJfl(3INI. After the calling sequence 
has been interpreted! CJflflINI calls the required processing 
routine. When the request has been processed! (36(3INI 
calls CIBflEND to terminate the input or output. 

b.3. 2 Auxiliary Input/Output Statements 

A REWIND u statement is handled by the routine (3fl(2WND. A 
status request is made to determine if the unit may be 
rewound. If the statement is illegal! error message b 
is typed and exit is made to the Utility System. If the 
statement is legal ! a rewind request is made. 

A BACKSPACE u statement is handled by the routine (UflfiBCK. 

A status request is made to determine if the unit may be 
backspaced. If the unit may not be backspaced! error 
message b is typed out and exit is made to the Operating 
System. 
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b.3.3 


An END FILE u statement is processed by the routine (36C3FLE. 
A status request is made to determine if the unit is capable 
of writing an end of file {E0F>. If an EOF may not be 
written! error message b is typed and exit is made to the 
Operating System. 


fiSflUNDi flfitIBCK! and flflflFLE are grouped together in the 
program names TAPCON. They make use of common subroutines. 

An OPEN di ii j-i Ut x request is handled by the routine 
(SfiDFNF which is in the program flflDFIO. A table entry 
containing the file numberi logical unit-i and starting 
sector number is set up and the file space used is 
allocated. Several errors can result if the parameters 
are incorrect. The table entry is used by subsequent 
READ or WRITE requests for that file. 

Basic External Functions 

E0F-Cu> function is serviced by the routine EOF. If bit 
12 of the unit history table entry for u is set-, an end 
of file has been written by the previous WRITE request. 

The A register will contain one upon exit from EOF. Bit 
12 not set results in the A register containing two upon 
exit from EOF. 


EOF is grouped with (26(3FLE! (SflAWNDi and flfiflBCK in the 
program TAPCON. 


I0CK-Cu> function is serviced by the routine lOCK. If bit 
2 of the unit history table entry for u is sett an error 
occurred during a previous I/O operation. The A register 
contains one upon exit from lOCK. Bit 2 not set results 
in the A register containing two upon exit from lOCK. 

IFALT-CI> function is serviced by the routine IFALT. The 
input parameter I may take on the following meanings^ 


1=0 Check for overflow 

1=1 Check for divide fault 

1=2 Check for underflow 


The values that the parameter may return are: 


1=1 Condition occurred 

1=2 Condition did not occur 
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b-3.M Special Calls 

A PAUSE statement is handled by the routine dJflPSE. The 
message PAUSE is typed out and a typewriter read is executed. 
The program continues when a carriage return is typed in. 
PAUSE n is handled by the routine flSPSEN wh ich is the same 
as flaPSE except PAUSE ni where n is a S digit octal number-i 
is typed out. 

A STOP statement is handled by the routine (3aSTP. The 
message STOP is typed out and an exit request is made to 
the Operation System. STOP n is handled by (26STPN which 
is identical to CJaSTP except STOP dt where n is a 5 digit 
octal number 1 is typed out. 

jSSPSEt (38PSENt flaSTPi and i2aSTPN are grouped together in 
the program named PSSTOP. 

b.M DISCUSSION BY ROUTINE 

b.M.l (2a<3INI Routine 

The purpose of this routine is to interpret the calling 
sequence and initialize the appropriate routines. The 
routine is written in 1700 assembly language. 

Three entry points are declared: flaflINI-, TaaONIT, and 

flaSKTP. The calling sequence to dJaflINI is described 
in b.5.1. iSaUNIT contains the unit number of the I/O 
request. iJaSKIP is called whenever the next record for 
formatted I/O is to be input or output. 

The following externals are declared: 

(SaERRn in (JaERRII 
flaiNTB in CJaRUBU 
tJaEREn in flaERRN 
aaTon in a&ax 
(Sacnpo in aacnp 
(SariAGT in (SaHAGT 
(2a(2END in flaiJEND 
dSaiFRii in (SaiFRn 
flaiGP in flafGET 

macnpi in flacnp 

<2a(3UN2 in (SSflUNI 
b.M-2 dJaCJX Routine 

The purpose of this routine is to transmit the address of 
the element and call the appropriate processing routine 
Cbinary or format!. The routine is written in 1700 Assembly 
Language. 
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The following entry points are declareds iJfiflTOflT 
flaflx-cflfiflTRM}-! aaiJY-i a&aiz-, and aanovE. 

aaflTOri calling sequence: 

LDA flag word 

RTJ aafiTon 

a&QX {(2ai2TRn> is described in b.2.1. 
aanOVE calling sequence: 

RTJ aanovE 

ADC value 

ADC switch 

For Binary Transmission the following rules apply: 

A. RTJ i2a<2X -Cone word transmission! 

1. address of integer list element 

B. i RTJ flaav {two word transmission! 

1. address of single precision floating 
point element 

c . RTJ a&az {three word transmission! 

1. address of double precision floating 
point element 
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For read, value is moved to the address of the list element plus 
switch. For write, the list element plus switch is moved to the 
address of value. 

The following externals are declared: 

Q8IFRM in Q8IFRM ' 

Q8B1NB in Q8RWBU 
Q8QUN1 in Q8QUN1 
Q8UNIT in Q8QINI 

6.4.3 Q8QUNI Routine 

This routine is composed of three subroutines to insert data into and 
fetch data out of the unit history table. The routine is written in 
1700 assembly language. The following entry points are declared: 
Q8QUN1, Q8QUN2, and Q8QUN3. 

Q8QUN1 calling sequence: 

LDQ unit 
RTJ Q8QUN1 

Return with A register containing unit history table entry 

Q8QUN2 calling sequence: 

LDA va lue 
LDQ unit 
RTJ Q8QUN2 

Value is logically ORed into the unit history table entry 

Q8QUN3 calling sequence: 

LDA value 
LDQ unit 
RTJ Q8QUN3 

Value is stored in the unit history table entry 
The following external is declared: 

Q8EREM in Q8ERRM 

6.4.4 Q8CMP Routine 

The routine is written in 1700 assembly language. Q8CMP has 2 entry 
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points, Q8CMP0 and Q8CMP1. Q8CMP0 initializes the input/output 
request. Q8CMP1 implements the input/output request retaining a 
composite error history which is left in the A register upon return, 
when entry is from Q8QEND. 

Q8CMP0 calling sequence: 

LDA flag word 
LDQ unit 
RTJ Q8CMP0 

Q8CMP1 calling sequence: 

LOA indicator (non zero if entry from Q8QEND, otherwise 0) 

RTJ Q8CMP1 

Return with A = composite error history (if indicator non zero) 

The following externals are declared: 

Q8EREM in Q8ERRM 
Q8BEGB in Q8RWBU 
Q8L0CB in Q8RWBU 
Q8CLRB in Q8RWBU 
Q8RINT in Q8RWBU 

6.4.5 Q8RWBU Routine 

This routine is written in 1700 assembly language. Q8RWBU has seven 
entry points: Q81BUF, Q81NTB, Q8L0CB, Q8BEGB, Q8CLRB, Q8RWBU, and 

Q8BINB. Q81BUF is the first word in the physical record buffer. As 
such Q8IBUF is zero for all physical records except for the last 
physical record when Q8IBUF is equal to the number of physical records 
in the logical record. 

Q81NTB initializes buffer counters and, if the request is a READ, 
inputs the first record from the I/O device. Q8L0CB loads the addrest 
of the current buffer location into the A register. Q8BEGB loads 
the address of the first buffer location into the A register. Q8CLRB 
backgrounds the buffer with zeros for binary I/O and ASCII blanks 
for formatted I/O. Q8RINT reinitializes the buffer counters. 

Q8RWBU loads a character from the conversion routine into the buffer 
for WRITE requests and from the buffer to the conversion routine for 
READ requests. 

Q8BINB loads a binary word from the list into the buffer for WRITE 
requests and from the buffer into the list for READ requests. 
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(JflINTB ca 1 1 ing sequence: 

LDA flag word 
RTJ (JfllNTB 

(JflLOCB calling sequence: 

RTJ flaLOCB 

Return with A •= address of current buffer location 
(JSBEGB calling sequence: 

RTJ flaBEGB 

Return with A = address of beginning buffer location 
(UaCLRB cal 1 ing sequence: 

RTJ (JaCLRB 

CaRINT calling sequence: 

RT.I (JaRINT 

(SaRUBU calling sequence: ^ 

CALL cJaRUBIJ -rCHAR} or RTJ flaRliJBU 

ADC CHAR 

CHAR is the location of the character to be stuffed into the 
buffer -CURITET or the location to stuff the next buffer 
character into {READJ. 

In a statement of the form 

CALL cJaRUBU {CHART 

char may be a decimal number whose correspond i ng hexadecimal 
number gives the ASCII symbol to be stuffed into the buffer 
{URITET. 

i3aBINB calling sequence: 

RTJ (3aRINB 

The following externals are declared: 

flacfiPi in (Sacrip 

fSflEREn in flaERRh 


-|f 
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b.M.b CflFGET Routine 

This routine is written in 1700 assembly language. (JfiFGET 
consists of four entry points: (3fiL0CF» CaiEP» CfiFGET, 

and flfiFPUT . flfiLOCF loads the character counter into the 
A register. Q&IGP clears the 


AA 9777 


nONRDMUSA 



CONTROL DATA CORPORATION • DIVELOPMENT OlV • SOFTWARE DOCUMENT 


DC CUMENT CLASS IMS , 

PRODUCT namf 1700 Hass storage 

PRODUCT NO — CD05 vFP«;it ..s. . ► ^‘0 ,v.Ari-nKiF 


PAGE NO_ 


1700 


character counter and stores the FORMAT statement address. Q8FGET 
fetches a character from the FORMAT statement. Q8FPUT stores a 
character into the FORMAT statement. 

Q8L0CF calling sequence: 

RTJ Q8L0CF 

Return with A = character counter 

Q81GP calling sequence: 

LDA format statement address 
RTJ Q8IGP 

Q8FGET calling sequence: 

CALL Q8FGET (ADR, SAVE, REP) or RTJ Q8FGET 

ADC ADR, SAVE, REP 

Where ADR is the address where the FORMAT statement character is 
to be stored; SAVE is a flag - 0 means ignore, 1 means save the 
current character count less 1 in FR, 2 means save the current 
character count less 1 in GR; REP is a flag - 0 means ignore, 

1 means set the character count to FR, 2 means set the charaOter 
count to GR. 

Q8FPUT calling sequence: 

CALL Q8FPUT (ADR) or RTJ Q8FPUT 

ADC ADR 

Where ADR is the address of the character to be stored into the 
FORMAT statement. 

There are no externals declared by Q8FGET. 

6.4.7 Q8ERRM Routine 

The routine is witten in 1700 assembly language. The purpose of 
this routine is to process error messages. Three entries are declared: 
Q8ERRM, Q8EREM, and Q8FERM. Q8ERRM converts the I/O request number 
and unit number from binary to ASCII decimal. Q8EREM processes 
error messages from 1700 assembly language routines. Q8FERM pro- 
cesses error messages from 1700 FORTRAN language routines. 
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Q8ERM calling sequence: 

LDA 1/0 request manber 
LDQ unit 
RTJ Q8ERRM 

I 

Q8EREM calling sequence: 

LDA j error type 
RTJ |q8EREM 

Q8FERM calling sequence: 

CALL Q8FERM (I) or RTJ Q8FERM 

ADC 1 

Where 1 Is the error type number. 

The following externals are declared: 

Q8L0CF In Q8FGET 
Q8L0CB In Q8RWBU 

6.4.8 Q8MAGT Routine 

The purpose of this routine is to check the status of the magnetic 
tape unit specified for the READ/WRITE request. The routine is written 
in 1700 assembly language. There is one entry: Q8MAGT. 

Q8MAGT calling sequence: 

LDQ flag word 
LDA unit 
RTJ Q8MAGT 

The following externals are declared: 

Q8EREM in Q8ERRM 
Q8QUN2 in Q8QUNI 
Q8C0MI in PS STOP 
Q8QWND in TAPCON 

6.4.9 Q8IFRM Routine 

The purpose of this routine is to initialize certain cells and call 
either the format scanner (Q8FS) or the conversion and transmission 
routine (Q8TRAN) based on the setting of the input parameter lENTY. 

It is coded in FORTRAN and is defined as follows: 




SUBROUTINE (JfllFRM -CIENTY-, IRU-, ILIST> 

The input parameters have the following meaning: 

lENTY - Switch which determines the phasing 
of the call. 0 = I/O list Just 
beginning to be processed -Centered 
from (2fli2INI>. 1 = I/O list being 
processed Centered from (2fli2X>. 

IRtil - Read/Urite Switch. 0 = Readi 1 = Write. 

ILIST - Any 1 ist associated with this I/O . 

1 = list 1 0 = no list . 

t.M.lD (36FS Routine 

The purpose of this routine is to scan the FORMAT state- 
ment -i interpret individual subf ieldsi and pass the 
resulting field specification parameters to the conver- 
sion and transmission routine-i flflTRAN. It is coded in 
FORTRAN and is defined as follows: 

SUBROUTINE flSFS -CIRU-. IFW-, IND, ITYPE-. IRF-. IRG-. 

IBCTn ISliIRi ILIST, lANYL} 

The input parameters have the following meaning : 

IRQ! - Read/Urite switch . □ = Read, 1 = Write . 

IFW - Number of characters in I/O field- 

INO - Number of characters to right of decimal 

point. 

ITYPE - Type of conversion to be done 

1 = A 

2 = R 

3 = E 
^ = F 
S = $ 
b = I 
7=1) 


IRF 

- Number 

ind 

icat 

ing 

the 

number of 

t 

imes 

the 


current 

; fi 

eld 

is t 

:o 

be repeated. 




IRG 

- Number 

ind 

icat 

ing 

th 

e 

number of 

t 

imes 

the 


current 


oup 

is 1 

:o 

be repeated. 

1 



IBCT 

- Number 

ind 

icat 

ing 

th 

e 

parenthesi 

LS 

count . 


for 

all 

•C a 

nd • 

-1 

for all > . 




ISUR 

- When tf 

lis 

switch = 

= 2 

C 

II new I/O i 

Is 

per1 

Forme 


otherwi 

.se 

not . 

It i 

S 

a delayed 

r 

ead/wr ite 


switch . 










ILIST 

- 0 = no 

lis 

t^ 1 

= ] 

List 

associatec 

i 

with 

this 


I/O statement. 

lANYL - □ no conversion specification exists in 
FORMAT statement-. Non-zero = at least 1 
conversion specification exists . 
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6.4.11 Q8TRAN Routine 

The purpose of this routine is to convert the next subfield for 1/0 
based on the appropriate FORMAT specification and transmit the subfield 
to or from core. It controls all I/O done under FORMAT control. 

It is coded in FORTRAN and is defined as follows: 

SUBROUTINE Q8TRAN (IRW, IFW, IND, ITYPE, IRF, IRG, IBCT, ISWR, 
ILIST, lANYL) 

The input parameters have the same meaning as described in section 
6.4.10 for Q8FS. 

6.4.12 Q8QEND Routine 

The purpose of Q8QEND is to terminate the READ/WRITE request and store 
the cumulative error history into the unit history table. The routine 
is written in 1700 assembly language. The only entry is Q8QEND* 

qBQEND calling sequence: 

RTJ Q8QEND 

The following externals are declared: 

Q8CMP1 in Q8CMP 
Q8QUN1 in Q8QUNI 
Q8QUN2 in Q8QUNI 
Q8UN1T in Q8Q1N1 

6.4.13 TAPCON Routine 

TAPCON consists of magnetic tape function routines. The routine is 
written in 1700 assembly language. Entries are Q8QBCK, Q8QFLE, Q8QWND, 
and EOF. Calling sequences and functions are described in 6.2.3, 6.2.4, 
6.3.2, and 6.3.3. 

The following externals are declared: 

Q8EREM in Q8ERRM 
Q8CMP0 in Q8CMP 
Q8CMP1 in Q8CMP 
Q8QUN1 in Q8QUNI 
Q8QUN2 in Q8QUNI 
Q8QUN3 in Q8QUNI 
Q81BUF in Q8QINI 
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6.4.14 


6.4.15 


6.4.16 


6.4. 17 


lOCK Routine 

The routine is written in 1700 assembly language. lOCK is a routine 
to check for any I/O error. It is described in 6.2.4 and 6.3.3. It 
has one entry point: lOCK. 

The following externals are declared: 

Q8QUN1 in Q8QUNI 
Q8QUN3 in Q8QUNI 

PSSTOP Routine 

PSSTOP consists of the special calls Q8PSE, Q8PSEN, Q8STP, Q8STPN, 
described in 6.2.5 and 6.3.4 plus the entry Q8C0MI. The routine 
is written in 1700 assembly language. Q8C0MI reads the teletype- 
writer for one character. 

Q8C0MI Calling Sequence 

RTJ Q8G0MI 

One external is declared: Q8PAND 

Q8PAND Routine 

The purpose of Q8PAND is to type PAUSE or STOP followed by 5 octal 
digits if specified. The routine is written in 1700 assembly language. 
It has one entry point, Q8PAND. 

Q8PAND calling sequence: 

LDA NUM 
LDQ ADR 
RTJ Q8PAND 

Where NUM is a binary number to be converted to 5 digit ASCII 
octal, or, if NUM 0, to be ignored. ADR is the address of 
PAUSE or STOP in ASCII. 

There are no externals. 

Subroutine QSEXP'l 

Routine converts a binary integer and decimal exponent into a 
floating point number. The integer is assumed to be greater than 
0. Exponents may be positive, negative, or zero. 
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Input parameters: P address of 2 word binary integer 

P contains most significant 16 bits 
P + 1 contains least significant 12 bits, right 
Justified 

PI address of decimal exponent 

Output parameters: P, P+1 contains floating point number (0 if 

underflow has occurred, $7FFF, $FFFF if over- 
* flow has occurred) 

PI error Indicator 
0 implies no error 
iK) implies error 

Routines Used: PLOT 

Used by: Q8TEAW (FORTRAN object time conversion routine) 


6.4.18 


Language: 1700 Assembly Langiiage' 

Subroutine Q8EXP1 

Converts a floating point number to an octal fraction with decimal 
exponent. 


Input parameter: P address of 4 word table P4"l, P+2 contain 

floating point number to convert 


Output parameters: P^l, P+2 contain octal fraction (lower 12 bits 

of each word) 

P+3 value of decimal exponent 


Used by: 

Routines used: 
Other externals: 


Q8TRAN 

PLOT 

Q8EXPT (in Q8EXP9) 

1700 Assembly Language 


Language : 
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b•^.n tlfiDFIO Routine 

iSflDFIO which is written in 170D assembly languagen handles 
the disk I/O necessary for OPEN statement. This routine 
may be split into two separate parts. 

The first part-i which has the entry point (26l>FINi is called 
by (SflfllNI to initialize the disk I/O. 

iJflDFIN calling sequences 

RTJ (2BDFIN 

where 


A contains the file number 

(2 contains the flag word shifted 7 left 

This routine finds the corresponding file table entryi 
computes the starting sector number and places it in 
(SfiDFAD -Cin (36CriP> and returns with the logical unit in A. 

The second part-i which has the entry point (38DFNF-, 
is entered by a compiler generated call from the user-'s 
program when executing an OPEN statement. 

(SaOFNF calling sequence: 

RTJ i28I>FNF 

1. address of file number 

2. address of number of sectors per record 

3. address of number of records per file 

M. address of disk logical unit number 

5. address of starting sector number 

The disk file table starts in the low address of unused 
core and extends upwards. Three words are created for 
each file. The format is as follows: 

WORD Q: file number 

WORD i: logical unit number 

WORD 2: starting sector address -Cx> 

The following externals are declared in flflDFIO: 

asERRM in flaERRh 
flaEREM in (SaERRfl 
caafliNi in laaiaiNi 
flaDFAD in aaoip 
laaiaENs in aacnp 




i 
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b.M.20 


(3 • M • 2 1 


IFALT Routine 

This routine checks for a floating point error condition. 
The input parameter I may take on the following values! 


I = D Check for overflow 

1 Check for divide fault 

2 Check for underflow 


The parameter I may return the following values: 


I 



Condition occurred 
Condition did not occur 


This routine! which is written in 170Q Assembly Language! 
uses the contents of location $Cfl in checking for the 
above conditions . The routines FLOAT and DFLOT store 
their error condition information in this low core location 


There are no externals • 


Subroutine flflOXP'l 


This routine converts a binary integer and decimal 
exponent into a double precision -C3 word> floating point 
number • The integer is assumed to be greater than zero • 
Exponents may be positive! negative! or zero • 


Input parameters: 


P 

P 

P+1 

P+2 

P+3 

PI 


address 
contains 
M bits 
contains 
signif i 
just if i 
contains 
signif i 
justif i 
contains 
12 bits 
address 


of M word binary integer 
the most significant 

the next intermediate 
cant 12 bits right 
ed 

the next intermediate 
cant 12 bits right 
ed 

the least significant 
right justified 
of decimal exponent 


Output parameters: P x contains the double precision 

P+1 I point number CO if underflow 
P+2 j has occurred $7FFF ! $FFFF ! 

♦FFFF if overflow has occurred . 
0 implies no error 

^0 implies error 
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Routines Used: DFLOT 

Used by: flflTRAN {FORTRAN object time conversion 

routine} 

Language: !?□□ Assembly Language 

b.M.22 Subroutine flaOXPl 

This routine obtains a double precision floating point 
number and converts it to an intermediate form of a 
decimal integer and a decimal exponent. 

Input parameter: 

Output parameter: 


Used by: 

Routines Used: 
Other Externals: 
Language : 

ti.S I/O Restrictions 


P address of b word table 
P+l"! contain the double precision 
P+2 ^ floating point number to be 
p+3-1 converted 

p+l-v contain the intermediate binary 
P+2 fraction {Lower 12 bits of each 
P+3 I word} 

P+mJ {only the upper 4 bits of the 
lower 12 bits are used} 

P+S contains the decimal exponent 

(JflTRAN 

DFLOT 

(SaDXPT and (2aDXP2 {in CaDXP'!} 

1700 Assembly Language 


VjT 


The number of logical units which may be used in one 
program is limited to 30. This number is introduced 
to limit the number of cells necessary for storage 
of the unit history table. The unit history table must 
be available to give information on the EOF and lOCK 
requests. 
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Each time a new logical unit is used in an I/O request, an entry 
will be made in the table. When use of more than 30 units is attempted, 
an error message will by typed. The transmission information on the 
1/0 request is placed in the table upon completion of the request. 

6.5.1 Structure of Unit History Table Entry 

BIT 
15 
14 

13 

12 

11 

( 

10 
9 

8-3 

2 

1-0 

6.6 ERROR MESSAGE 

6.6.1 General Discussion 

Error messages will be output on the standard comment medium. The 


message form 

will be one of the following three types: 

Type 1 : 

N 


I/O RQST n 


ffff> 

Type 2 : 

N 


I/O RQST n 

f 

ffff 

L 

gggg 

Type 3 : 

N 


I/O RQST n 


XX 


Not used 

1 Formatted 

0 Unformatted 

1 Rewind 

0 Non rewind 

1 EOF Read 

0 No EOF Read 

1 Backspace 

0 Not backspace 

1 Read 

0 Not read 

1 Write 

0 Not write 

Not used 

1 Error occurred 

0 Error free request 

Not used 
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1. N is an error number whldh corresponds to an error message. 

2. n is the I/O request statement number. 

3. f££f is the current value of the £ormat statement pointer. 
This value is in decimal. 

8S88 Is the current value o£ the input £ield pointer. This 
value is in decimal. 

5. XX is the decimal unit number o£ an improperly used device. 

6.6.2 An Error in the FORMAT Statement 

a 

MESSAGE: 1 

1/0 RQST n 
££££ 

Illegal character in £ormat statement 

Action: program termination 

6.6.3 Illegal Character in the Input Field 

MESSAGE: 2 

1/0 RQST n 
££££ 

8888 

Action: program termination 

6.6.4 Input Data Exceeds Limits o£ 1700 Word 

MESSAGE: 3 

I/O RQST n 
££££ 

8888 

Action: program termination 

6.6.5 Improper Use o£ Unit 


MESSAGE: 


N 

I/O RQST n 
unit number 
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N 

Description of Improper Use 

Action 

M 

Attempt to read on a write unit 
or write on a read unit 

Program termination 

5 

Read or write request after an 
end of file has been written 
without first doing an EOF 
check . 

Program termination 

L 

Attempt to write an EOF. rewind, 
or backspace any unit other than 
a magnetic tape 

Program termination 

7 

Urite attempted on magnetic tape 
with no write enable 

Type to continue 

a 

Attempt to use logical unit 
number greater than 30 

Program termination 


Backspace at load point 

Program termination 

10 

End of magnetic tape sensed 

Rewind tape. 

Type ^^to continue 


b-b.7 Illegal Formatted Input 

(lore elements are given than are contained in an input 

record. 

flESSAGE; 15 

I/O R(3ST n 

ffff 

Action: program termination 

t> . t> . 6 III ega I List 

A list is given but there are no conversion codes in the for- 
mat statement. 

HESSAGE: 13 

I/O R(3ST n 
ffff 

Action: program termination 



AA 3T7T 


rawnDMu&A. 



CONTROL DATA CORPORATION 
DIVISION 


DOCUMENT CLASS 

PRODUCT KiAMc 1700 MASS STORAGE FORTRAN 

PRODUCT MODEL NO 


PAGE NO. 


b-5S 


MACHINE SERIES iZOH 


File defined twice 

More than one OPEN request given for the same file- 

MESSAGE: IM 

T/0 RflST n 
fi le number 

ACTION: Program is terminated* 

b*ti*lQ Parameter negative or zero 

One of the parameters in an OPEN statement is negative or 
zero* 

MESSAGE: IS 

I/O RCST n 
file number 

ACTION: Program is terminated 

(a*(3*ll Sector address too large 

The starting sector address or ending address exceeds 

2IS-1. 

MESSAGE: lb 

I/O Ri3ST n 
file number 

ACTION: Program is terminated 

b*b*lS File not defined 

A READ or WRITE request was given for a file which was 
not defined by an OPEN statement* 

MESSAGE: 17 

I/O RflST n 
file number 

ACTION: Program is terminated 

b*b*13 Logical unit not a mass storage device 

MESSAGE: Ifl 

I/O R(3ST n 
file number 

ACTION: Program is terminated 
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xmo 0 


b*b*m Record number in READ or WRITE request incorrect- Re- 

sulting sector address is out of the range of the file 
or is zero. 

riESSAGE: IT 

I/O R(3ST n 
file number 


ACTION: Program is terminated 
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6.7 


6 . 7.1 


RECORDS 

Binary READ-WRITE Statements 

A binary write produces a logical record which may be composed of 
any number of physical records. 

A READ (u) statement spaces the tape one logical record. 

A WRITE (u) statement is Illegal. 

The first word will be Interpreted as a control word and does not 
represent data. A WRITE (u)L will produce on paper tape a logical 
Record as follows: 

1st word 
2nd word 


last word 
1st word 
2nd word 


last word 
1st word 
2nd word 


last word 


Header word 
(one's complement of block size) 



checksum 


Header word 
(one's complement of block size) 



checksum 


Header word 
(one's complement of block size) 



checksum 


86 word physical recor 


86 word physical recor 


86 word physical recoi 


The mode is binary. The checksum when added to the sum of all the 
data words and the header word will result in zero; Overflow is 
ignored in the computation of the checksum. 
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A READ -CuTL will read one logical record with the above for- 
mat - The header word and checksum are not read into the 
buffer. 

A WRITE fu> will produce on magnetic tape a logical record 
which has the same form as the paper tape record except 
a record gap replaces the checksum and header word- 

b-7.2 Formatted READ-URITE Statements 

All formatted read-write statements produce a record of bO 
or less wordsr 2 ASCII characters per word. Attempts to 
read more than bO words {120 characters! in a record result 
in an error message and program termination. Attempts to 
write more than bfl words { 13b characters! in a record re- 
sults in truncat i on of the record at the 13bth character. 
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1. Flag word bit 14 off means 
this is the address of the 
unit number. 

2. A negative address means this 
address is relative to the 
given address. 

3. Location F9., is the start of 
the System communica- 
tion region and contains the de- 
vice code for standard input, 
standard binary output, stan- 
dart list output and comments, 
consecutively. 
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4. Bit 1 on for read 
unit; bit 2 on for write 
unit; bit 3 oft for read 
or write. 

5. Flag word bit 9 oti 
means write request. 



6. 

Flag word bit 10 on 
means read request. 







4 



OK 


7. 

Flag word bit 14 on 
means format request. 

i 

1 

Y 

^ 

Jump to INITA 

8. 

FSAD can contain the 
address of the format 
statement direct, in- 



/ 




s 


. INITA 



direct or relative. 

9. A negative address 
means this address 
is relative to the 
given address. 



Q8CMP0 


'Initta lize 
^the I/O sub- 
\routine 


INITB 


Q8INTB 


/Initialize 
^the buffer 
'\^ubroutine 


FORM 


REDtf 


FSAD = Format i 
statement 
address 




Add this adr. 
to (Q8QINI) & 
mask off the 
sign. Store ifi 
■ PSA© . 


V 


V 
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Of 5 
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|l2. Bit II is on If an end 
of file was sensed by 
the magnetic tape status 
check. 

|13. LONL non>zero means 
this request has a 
list. Flag word bit 
11 means list. 

|14. Bit 12 in the unit 
history table is 
used to flag end of 
file status on the de- 
vice. 

|l5. A formatted write 

request without list 
is a fatal error. Error 
message 11 is typed out. 
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Q8SKIP is an entry point: 
in Q8QINI but is an inde- 
pendent subroutine called 
by the format routines to 
skip to the next record. 
It is called whenever a 
slash occurs in the for- 
mat statement or deamed 
necessary by the format 
routines. 


Q8SKIP 




Save C 

[ _ _ 

reglst 




/ Q8CMP1 

Implement 

.read/write 


Restore Q 
register 


W I u u 

y y y 


RETURN 


Z Zut ^ 
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17 □□ 


If the history table 
entry for this unit 
has bit 12 on, an end< 
of«*flle Is Indicated. 
All transmission Is 
Ignored . 

A negative address 
means this address 
Is relative to the 
given address. 

Flag word bit 14 on 
means format request. 


Q8QT0M 


Save Flag. 
Store Read/ 
Write Switch 


RETURN 


/ RQST \ 

/ Service \ 
( Transmission/ 
\ Request / 

EXITX i 


Restore Q, I 


RQST 


Transfer 
Element 
Address to Q 
& Save In ADR 


Q8QX 


RETURN 


Format^ 

Request 


Q8QZ 


Save Q, 1 
Registers 


Q8QUNI 

Fetch 

Unit 

History 


Q8QY 


/ Q8IFRM \ 
f In^lesaentN 
Transmission 
Format j 
\ Request / 


RETURN 


find-of-Flle 


'Element' 

Address 

SRelativ« 


Add to (Q8QX) 
and Mask Off 
Sign 


/ Implement ^ 
'Transmission 
V of Binary 
\ Request / 


RETURN 


ahCCA 

Page L of ST 
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t-MO 



CHECK 


('Check for 
vlegal unit 
\ il-BOy , 


Load A with 
History tab .e 
entry for 
unit 


RETURN 


CHECK 


(3at2UN3 


UNIT = 0 


UNIT < 0 


CHECK \ 

'Check for ' 
ilegal unit. 
\ -Q-30} / 


Store A reg 
into histor 
table entry 
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K O J 
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o U. 3E O U X 

a o < J ui h 

I- I/) 0) U. D O 

X 


m 


o 
















Flag word bit 14 on 
means formatted 1/0. 

Flag word bit 10 on 
means read request. 

Magnetic tape trans> 
fers must be at least 
9 words in length due 
to hardware constraints. 



Save flag & 
unit. Clear 
COUNT & TFLG 


($F4) ^ 
tain equip 
ment type 


ETYPE = 

equipment 

type 



Set write 
request for 
I/O 


Q8CMP1 


Save ENDFLG 
& transfer 
to Q. 


/ Q8BEGB \ 

tecF^ — \ 

beginning loi, 
\of I/O huff/r 


/ Q8L0CB \ 
)btain \ 

irrent location 
Vf 1/0 buff« 


NRl = current 
location - 
LOG 1+1. Trans 
fer to Q 


Jevlce magnecte 
X. tape 





NRl = 9 




oi 

H px, 


w-i O a: 

Jh 00 w 
^ <y m 


RETURN 


Set read 
request for 
I/O 


UlI CD 
Q ^ < 

O i h 
^ < Z 

^ O 

a K " 5 

s o u X 

< J W H 
to tx O O 
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ENDFLG indicates entry 
from Q8QEND if non- 
zero. 

Composite status consist 
of bits 9-10 of the flag 
word for read /write and 
bits 13-14-15 of the I/O 
request status. 


NOTMAG^<x. 

<^evice a 
C^Jetype^ 


'ENDFLG = 
0 



Tlead 

request 



/implement 
\ I/O 


ENDFLG = 


Generate 

composite 

status 
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I&. Flag word bit 14 on 
means format request. 





Increase phy- 




sical record 


Clear A 


count by 1 


register 

8. All binary I/O requests 

(COUNT) 




are in logical records 
of 86 words each. 

The first word of each 
86 word record is zero 
for all records except 
the last which contains 
the number of physical 
records per logical 
record (COUNT). 

9. Clear 1st word of 
binary physical 
record. 

10. 1st word zero means 
more physical records to 
follow. Q8QEND requires 
input of all physical 
records until entire 
logical record has 

been read. 





Store A registpi 
in (LOCI) 


RORW 


Implement 
\l/0 request 
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11. Q8QEND means terminate 
the write request. For 
binary this means the 
physical record count Is 
stored In the first word 
of this, the last, record. 
For format, output the 
record. 















RORU 
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request 


WRITE 


/ ROSTl \ 

implement \ 
write through 
Vequest / 
\processor 


/ 06CLRB 
'Xlear the 
V buffer 


/ flARINT \ 

^Reset bufft 
Vcounters > 


^ taaRINT 

Reset 

buffer 

^counters 


R(2ST1 


Implement 
ead throug 
^ request 
\Drocessoi7 


RETURN 
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1X)C+II Is the current 
location of the input/ 
output buffer. 


Q8INTB 


Store flag. 
Clear SAVQ, II, 
CC, RWF. Ini- 
Itialize buffer 


Q8L0CB 


LOC+II 

in A register 
Q = CC. 


Format 

.^;^eques^ 


LNGTH = 86 
(Physical 
record size 
for binary) 


LNGTH = 60 
(record size 
for ASCII) 


CLRBUF ^ 

/ Background 
\ buffer 

\ ^ 


Read 

sTequest 


II = LNGTH 
Clear A. 


)8CMP1 


Read recorc 


RETURN 





RETURN 
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ffi 
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An FF_ will be 
encountered when 
a read was termina- 
ted at an odd num- 
bered character. 

The 1/0 drivers 
fill the word with 

^16- 

RWF flags more than 
120 characters 
transferred. On a 
write request 
truncation occurs 
at 13b characters. 


Q8RWBU 


Save Q, 1 
registers. 
AIBUF = addre: 
of character 


•^Read ^ 
request 


WRIT I 


RWF = 0 


II = CC/2 
(buffer index! 


II = CC/2 
(buffer inde}) 


right characj 


tieft characti 


Mask off the 
left 8 bits 
in the indexes 
buffer word 


Right- justify 
the buffer 
Indexed charac 


Or in the 
character 6e 
store back in 
the indexed 


R IGHT 4/ 

Mask off the 
. right 8 bits 
^ in the indext 
buffer word 




Mask off all 
but right-most 
8 bits 


CC = CC+1 
(character 
counter) 


? o 

^ MW 

So 


laractei 
= $FF 


Set character j 
to ASCII J 
blank 


XC > 13b 


Restore Q,I 
registers 


RETURN 
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When the binary buffer 



O 

m 

> 

o 

c 

a. 

fli 

< 


ti^ 

■ C 


a 

a 

r- 


o« 


7 

< I 

Z I 

H 

u 

y 

n 

O 

Z 

0 . 

I on 

cO 


u. 

IS' 

u 

o| 

<: 

a. 


yy 

Dh* 

2 o 


3 C 


h 

2 

3 j 

O 


X 

o 

H 

< 

QC 

O 

<L 

o;: 

o 

u 

< 


►* 

zy 

O 

o 


3 

m 

3 

Otc 

CO' 

tat 


s 

X 

o 

u 


□□□□ 


< 


m 


o 


Q 






















,b-SD 



A negative address 
means this address 
Is relative to the 
given address. 

Loading the Q reg- 
ister with CC and 
shifting right one 
place has the effect 
of loading Q with 
the format state- 
ment word Index 
and leaving a 
pointer to the 
right character. 

CC, thp character 
counter, is odd 
for right char- 
acters, even for 
left characters. 


Q8FGET 


Save Q,I 
registers 


Characters^ 

Idress 


Save fl^ 
= 0 


Repeat 
address ^0 


Return with 
address in 
V register y 


Store address 
of format 
statement 
char . in ADR 


Save \ 
address 


/ RELA \ 
'Return with' 
, address in . 
\a register / 


Load SAVE 
flag 



SAVCC 

GR = CC-1 
(Save character 
counter- 1) 

EXIT 


N / 

/ Restore Q,I 
\ registers; 


Y 


Y 


\ 

L RELA \ 



Return withN 
address in j 
\a register / 


Load repeat 
flag 


Repeat^ 
flag = 0 


CC/2 in 
Q and A 
registers 


Left ^ 
character 



REPCC, 

CC = GR 

^ (Restore char 
counter ) 
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Enter with I/O request 
number in A and ^ 
unit number in Q. { 

LORL is a flag; 

1 for right half 

store; 0 for left | 

half store. TEl 

nvKi 

$30 is ASCII zero. 


ERRMSG 



1 

TEMP = 
nvKnber 

unit 




/ CNVT \ 
Convert I/O \ 

, request number 
\to decimal/ 



Z 

BINARY = bin- 
ary number 
TEMP3=$2000 
RORL = 1 



I = -5 

COUNT 

CNTR 

o o 

li li 




1=0 


TEMP 1+2 
TEMPI 
TEMP 1+1 


A,Q,I — » 
N,N+l,N+2 
(6 character 
result) 


COUNT = 
BINARY/ 10 ’ 
i = 1, 5 


RETURN 


L CNVT A 

^onvert unit ' 
number to decr 
Itoal ASCII / 


BINARY = 
remainder 
1=1 + 1 


A,q,i — > 

UNIT,UNIT+1, 

UNIT+2 


LORL = 0 



RETURN 


SLEPT I 3 

RORL = 1 
TEMPS = COUNT 
+$30C( shifted 
to left half) 


RORL = 0 
TEMPI, CNTR 
= GOUNT+$30 
+TEMP3^ 


2 Zm 

3! Sk w 

3 j 3r 00 


CNTR=CNTR+1 
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a ^ *5 w 
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FERMSG Is entered 
from the format 
package which Is 
coded in FORTRAN. 
The flag, ENTER, 

Is set non- zero 
to Indicate FERMSG 
was entered. 

A negative add- 
ress means this 
address Is rela- 
tive to the given 
address. 

ERRMSG is entered 
from the 1700 
machine language 
routines of the 
I/O package. 

ETYPl is the error 
types 1, 12, 13. 

ETYP2 is the error 
format for error 
types 2 and 3. 
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19. ETYP3 Is the 

error format for 
error types 4, 5, 
6, 7, 8, 9, 10, 
and 11. 



Type 1/0 
unit 
number 



L EQ5X_A 

/ Type out 3 \ 
\ words from / 
\ NUM / 


TMl 



WAIT 
Wait for 
type out 
complete 


RETURN 


ROST 


Type out 9 
.words from 
MSGl 


WAIT 


'Wait for 
type out 
complete^ 


RETURN 



TM2 


ROST 
Type out 3 
words from 
UNIT 

T 

WAIT 
Wait for 
type out 
complet« 


RETURN 




TIFLD 


Q8LOCB 


^etch input 
string char- 
icter counti 


TMO 

''Type out 
^ input string 
I char, counter 


RETURN 
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CMPL is the com- 
pletion address 
entry point from 
the System 
request • 


Clear 

completion 
flag (FLG) 


Restore 
Q and I 
registers 


Type out 


ENTER = 0 


RETURN 

(EREMSG) 


RETURN 


RETURN 

(FERMSG 




FLG = 1 
(Set comple- 
tion flag) 



^ 5 aaDD 



Exit reques 













b-st 


1. If no magnetic 
tape operation has 
occurred, a do- 
nothing request 
must be executed 
to obtain magnetic 
tape status. 

2. Bit 9 of the 

flag word set mean 
a write request. 

3. Bit 15 of hard- 
ware status word 
set mean'- write 
is enafcltd. 

4. No write enable 
results in type- 
out of error 
message 7. 

5. Bit 9 of hardware 
status word set 
means end of 
tape. 

6. End of tape re- 
sults in type- 
out of error I C 
message 10. 

7. Wait for opera- 
tor to mount a 
new tape. 
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This routine is called from Q8QIN1 
and Q8QX* The calling sequence to 
this routine has two parameters. 
They are: 

lENTY - 0 if routine called 
from Q8QINI 

lENTY - 1 if routine called 
from Q8QX. 

Call format scanner. This rou- 
tine interprets FORMAT state- 
ment parameters and sets them 
up in a form that the trans- 
mission routine can use. 

Call transmission routine. This 
routine converts the next I/O 
field according to the format 
s pec i f icat ion s . 


Q8IFRM 


^lENTY 
= 0 or 2 



CONTROL 0 ATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART ^ 

DECISION TABLE Q 

OTHER I 1 


DOCUMENT 

CLASS 

DOCUMENT 

TITLE 


number 

DRAWN B > 


MACH. ^ 
TYPE / 


PACE 25of 8 9 

E 

E 

DATE y 


PROJECT NO. 
PROJECT MGR. 
PROJECT NAME 
TASK NO. 

TASK NAME 



APPROVED 

DATE 














A A S 3 8 5 i.«" OS Mt R L V C A 1 2 7 - 1 





2 


3 


4 


9 



This routine is called from Q8IFRM 
and Q8TRAN. Its function is to 
interpret the FORMAT statement and 
put subfield parameters into boxes 
accessible by the transmit routine 
Q8TRAN. The parameters passed are 
as follows: 

IFM = field width 
IND = no. decimal places 
ITYPE = type of conversion 
IRF = field repeat count 
IRG = grout repeat count 
IBCT = bracket count 
ISWR =1/0 switch 

ILIST.= FORMAT statement 

accompanied by I/O list 
lANYL = switch to denote existence 
of some conversion speci- 
fication. 

Gets next character from read 
buffer or puts next character 
in output buffer. Its 3 para- 
meters are: 

13 = next character loc. 

14 = save char, position/ or No 

15 = reposition/or no 

Routine initiates I/O. 


CONTROL OATACORPORATION 

SOFTWARE DOCUMENT 

sample code 

□ 

FLOWCHART 

K! 

DECISION TABLE 

□ 

OTHER 

□ . 


OOCUMENT 

TITLE 


IFW = 0 


lere field 
s,^reques^ 


IFWl - 
INDl - 
IFSEP 



RETURN 


ISFLG > l\ Yes/ Q8SKIP 


0 -^ISFLG, 
ITYPE, IND, 
IXH 


3 \1/ 

0 — ISWl, 
ISW2, IFWl 
INDl 


PROJECT NO. 

RE\ 

approved 

DATE 

PROJECT MGR. 




PROJECT NAME 





TASK NAME 


-sa 






















I 2 1 



‘ 0 =)- 




























Error 13 - I/O list with READ, 
WRITE statement but no con- 
version specification in 
FORMAT statement. 


IRG • 

* 1 > 


IRG 

IBCT 

- 1— » 


IBCT 


> 



o-» 

ISW3 


IBCT > 0 





CONTROL DATACORPORATION I DOCUMENT 
SOFTWARE DOCUMENT class 


SAMPLE CODE 
FLOWCHART 
DECISION TABLE 
OTHER 


I 


1 DOCUMENT 

1 title 

08FS 

PAGE 30of 89 


ISSUE 

NUMBER 

DATE 


PROJECT NO. 
PROJECT MQR. 
PROJECT NAME 

task no. 

TASK NAME 


IrEH approved I DATE 


'?=i- 
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CONTHOL OATACORPORATIOH 

SOFTWARE DOCUMENT 

SAMPLE CODE Q] 

flowchart (5?1 

DECISION TABLE Q 

OTHER □ 


PROJECT NO. 

m 

APPROVeO 

OATE 

DOCUMENT 

TITLE 

PROJECT MGR. 




OftFS '’*«E12of 89 

PROJECT NAME 




^ ISSUE 

NUMBER DATE 

TASK NO. 





TASK NAME 
































































This routine gets the next character 
from the input buffer or puts the 
next character into the output 
buffer. 

This routine puts a character into 
the next position of the FORMAT 
statement* 


0 — ^ITYPE, 
IFSEP 


ead or 


write 




X or H 


5 


14 = 0 

15 = 0 


Q8RWBU 

(LCHAR) 


Q8RWBU 

(LCHAR) 


Q8FPUT 

(LCHAR) 


IFWl > 0 
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3 ] 

V 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE 

□ 

FLOWCHART 

a 

DECISION TABLE 

□ 

OTHER 

D 


DOCUMENT 

title 


PROJECT NO. 


PROJECT MGR. 


PROJECT NAME 


TASK NO. 


TASK NAME 


ISI 


approved 
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CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER 


DIVISION 


DOCUMENT CLASS_IHS PAqe N0._ 

PRODUCT NAMP 1700 HASS STORAGE FORTRAN 

PRODUCT MODEL NO. C0D5*3.1 A/B MACHINE SERIES 



UfiFS 

Page 3T of 6^ 


CA 138-1 REV 10-67 
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This routine controlLs the 
and transmission of list 
from READ and WRITE statem 
and from core. 


Call format scanner to pi 
conversion paruneters for 
subfield . 



T3 » 

Ql 

IQ 

m ^ 

s: ^ 
a 



03 

J3 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER DIVisiC 












2 


5 


3. 

M. 


S. 


Pick up next character from input 
string or on output -i place next 
character into output buffer. 

This routine moves one word to or 
from core based on nature of I/O 
currently being executed. The 
first parameter is the word to 
be moved -I and the second parameter 
is the increment to be added to the 
base location to determine the 
actual core location. 

A and R input core - versions comes 
here . 


0 


lUORD 


CONTROL D AT ACORPORATION 


SOFTWARE DOCUMENT 

SAMPLE CODE 

□ 

FLOWCHART 

n 

DECISION TABLE 

□ 

OTHER 

□ 




DOCUMENT 

CLASS 

IMS 

TY%E 1700 

PROJECT NO. 

DOCUMENT 

TITLE 

PROJECT MOR. 

mmm 


pageHIof ST 

PROJECT NAME 

number 


ISSUE 

DATE 

TASK NO. 

DRAWN BY 


DATE 

TASK NAME 



























































Nn 


8. Error 3. Magnitude of number being pro< 
cessed exceeds the full specification. 


96 


115 


11 



CONTROL OATACORPORATION 

SOFTWARE DOCUMENT 

sample code Q 

FLOWCHART [ | 

DECISION TABLE Q 

OTHER □ 


DOCUMENT 

CLASS 

^ MACH. 

type/ ;.' 

PROJECT NO, 


APPROVED 

DATE 

DOCUMENT 

TITLE 

PROJECT HGR. 




08TRAN 

paceCSof 

PROJECT NAME 




NUMBER 

ISSUE 

DATE 

TASK NO. 




DRAWN BV 

DATE 

TASK NAME 
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T. Hexadecimal input conversion 
comes here* 


CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART □ 

DECISION TABLE □ 

OTHER ( I 


DOCUMENT 
C i_ASS 


DOCUMENT 

title 


(JaiRAN 


0 — ^ISUfli 
ICNT 


Pass 

leading 

blanks 


Save first 
non-blank 
character 
I in ICSAV 

f : IZ 
ICNT + 1 

^ICNT 



^aracter 
w legal 


^eld 

width 

sitceede. 


t*ype 1700 1 PROJECT NO. 


PROJECT MGR. 


pageM7of 6^1 PROJECT NAME 
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CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER DIVISION 

DOCUMENT CLASS__II!1S PAGE NO 

PRODUCT NAMF 1 .?nn MA^S ?:TQRAfiE FORTRAN 

PRODUCT MODEL NO. C DQ 5T 2-1> A / B MACHINE SERIES ^ 
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10. This routine picks up a declsial 
integer at IWORD(2) , 1W0SK(3), 
IW0RK(4), and IW0R£:(5) and the 
corresponding decimal exponent 
at IW0RK(6) and cocrverts these 
values into the binary equivalent 
in the real nund>er form required 
by the floating point package. 

11. If magnitude of nund>er to be 
converted is excessive, IW0RK(4) 
is set to non-zero. 
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CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER DIVISION 

DOCUMENT CLASS__IJ1§ PAGE Kin 

PRODUCT NAME MASS STORAGE FORTRAN 

PRODUCT MODEL NO CDD5»3.1 A/B MACHINE SERIES 12DD 
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CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER 


DIVISION 


DOCUMENT CLASS ^ PAGE NO 

PRODUCT NAME 1.700 nAS!^ STORAGE FORTRAN 

PRODUCT MODEL NO. C0D5»5.3] A/B MACHINE SERIES JlZM 


330 



(36TRAN 
Page S7A of 
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CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE 

□ 

FLOWCHART 


DECISION TABLE 

□ 

OTHER 

D 


DOCUMENT 

CLASS 


DOCUMENT 

TITLE 


flSTRAN 


*tv%*E 170D 1 PROJECT NO. 


PROJECT MOR. 


PAOctsllOP 6^ I PROJECT NAME 


TASK NO. 


TASK NAME 


IlilORD/ESb 

ICHAR 


ICHAR.AND. 

2SS->ICHAR 


SRIilBU 

•CICHAR> 



APPROVED 










EL- 












CONTROL DATA CORPORATION 

LA JOLLA RESOURCE CENTER DIVISION 


DOCUMENT CLASS. 
PRODUCT NAME 


IMS 


ll^OD HASS STORAGE F6RTRAN 


PAGE NO. 


ti-TM 


PRODUCT MODEL Nin CQQ5»3-1 A/B 


MACHINE SERIES 


1700 




flSTRAN 

Page L2 of fli 
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15. !Al8 rcHJtlne takes floating point number 
in the form reqaired the floating 
point package and converts it to an 
intemttdiate form of a decimal integer 
representing the maintissa in N(2), N(3) 
a decimal exponent in N(4). 

15a. lESGN ■■ 45 means negative exponent 
IES6N 43 means positive exponent 

15b. This routine takes a double precision 
floating point number in the form 
required by the floating point package 
and converts it to an intermediate 
form of a decimal integer representing 
the mantissa in N(2) , N(3 ) , N(4) , and 
N(5) and the decisM.1 exponent in N(6). 
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flflTRAN 




•N(6) -4 N(6) 


■QUO 
^ 50 O 
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e c z 
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DOCUMENT CLASS—IHS PAGE Nin 

PRODUCT NAME 1.7nn MASS STORAGE FORTRAN 
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LA JOLLA RESOURCE CENTER DIVISION 


DOCUMENT CLASS PAGE NO.__5Zii£ 

PRODUCT NAME flASS STORAGE FORTRAN 
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16. IMs sectlcm of code converts 
& binary Integer placed In J1 
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CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER DIVISION 
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17. Integer output conversion 
comes here. 


M3 — > fISIGr 
D )IYiK] 


flanovE 

■CJ1-. Kll 


^^xantegerN^ 

convert^^ 

nfeqative^ 


0 >IY 


•J1 ^ J1 

MS— > nSIGN 
1 > lY 


Assign 78 
to lAD 


SOFTWARE DOCUMENT 

SAMPLE CODE 0 

FLOWCHART I I 


DOCUMENT 

CLASS 

IMS 

17QQ 

DOCUMENT 

TITLE 

(28TRAN 


PAG E*^*^ OF 

NUMBER 


ISSUE 

DATE 

DRAWN BY 


DATE 


PROJECT MOR. 


PROJECT NAME 


TASK NO. 


TASK NAME 


approved 



VjW 
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CONTROL DATACORPORATiON 
SOFTWARE DOCUMENT 

SAMPLE CODU Hj 

FLOWCHART 
DECiSION TABLE □ 

OTHER □ 

X/MS TrVi /700 

PROJECT NO. 

RE\ 

approved 

DATE 

DOCUMENT 

TITLE 

PROJEC r MGR . 




PAGE^iCbr 

PROJECT NAME 




ISSUE 

NUMBER DATE 

TASK NO. 




DRAWN BY DATE 

TASK NAME 





AA t 386 (f OWMt^LY C A 127-n 


mimm m u & a . 


-lie 



2 


5 



ETT- 















b-im 


!• Bit 12 in unit history 
table entry set means 
an end of file was 
detected during this 
1/0 request. 

2. Q8QEND entry when 
an end of file 
has been read is 
to be ignored. 
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1 . 


The history table en try 
word for the indi- 
cated unit will 
have bit 12 set if an" 
end of file was read. 


Q8QFLE ^ EOF ^ Q8QWND ^ 


2 . 


3. 


The A register 
contains T when 
EOF returns to 
the calling pro- 
gram. 

The history table 
entry word for the 
indicated unit will 
have bit 13 set 
after a rewind 
is implemented. 


SAVE 


SAVE 


SAVE 


ave register 
obtain status 
6t\his. tbe. ^try^ 


>ave register^ / Save registe 
obtain states ^ obtain stat 
his. tbe. /ntryMs. tbe. er 





WEOF 



Y 

2 

T = 1 Mask 
off bit 12 in 
history table 
entry word 





EXIT 



3 

Set bit 13 
in history 
table entry 
word 





EXIT 


RQST 
frite end 
of file on 
mag tape 


RETURN 
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8 . 


10 . 


Bit 10 in the mag- 
netic tape hard- 
ware status word 
(STAFLG) set 
means the tape 
is at load point. 

The previous read/ 
un-ite request type 
is contained in bit 
14 of the history 
table entry for the 
indicated unit. Bit 
14 set means for- Y 
mat request ( 1 
physical record) 

The A register 
now contains the 
history table 
entry with bit 
10 set to indi- 
cate read to Q8Cl|lP0 

Bit 11 of the 
hardware status 
word (STAFLG) se^ 
means an end of 
file was read . 

For binary 
records Q8IBUF 
contains the 
number of phy- 
sical records pe^ 
logical records 

Bit 11 set in 
the history tabl^ 
entry indicates 
backspace. 


Q8QBCK 


1 


SAVE 


>ave register) 
itobtain status 
;et his. tb§ 
e n ti w- 


Backspace at 
load point 
results in 
error message 
9 and program 
termination . 



.\ 


Backspace 
I record 




1 MCKl^ 

Y 

Q8QBK33 


STFLG = 
his. tbe. entt 
word for indih 
cated unit 



Q8IBUF=1 
(backspace one! 
physical recorjd 


Q8QBK2 


Set bit 11 in 
history table 
entry word in 
A register 


Set read 
flag in 
A register 


..RQST 
Backspace 
one record 


■■SIAIIIS- 

Obtain unit 
status 





Q8CMPQ 
Init ia lize 
I/O routine 
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o~ 


1 DOC 
1 ^ ^ 

n 
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!!• A negative address 
means this add- 
ress is relative 
to the given 
address* 

12. Bits 15, 14, 13 
contain the follow- 
ing: Bit 15 set 

if error occurred; 
bit 14 set if too 
few words trans- 
ferred; bit 13 
set if device 
failed. 

13. Entered from 
completion rou- 
tine after mag- 
netic tape 
operation imple- 
mented. 


T+1 = Q reg. 
T+2 = I reg. 
RETURN =return 
adr of routin 


relative X wN 
^address 


Add this adr* 
to (RETURN) 

6c mask off 
the sign 


RETURN 


COMD = tape 
operation 

WAITFL = 0 


Implement 
V mag tape 
\ request 


WAIT 


iperation^ 

complete 


/ Q8QUN2 \ 
A registeA 
(into unit hisy 

\ory table / 
\ entry / 

E XIT2 

A register 
= T 

EXIT3 

Restore Q,I. 
Bump RETURN 


LU = UNIT 
= (address) 
(unit number) 


/ Do nothing \ 
\reqUest for J 
rardware sta/us 


^ STATUS 

Obtain unit 
status ! 


A register 
= STFLG r 

bits 15,14,13 
= operation status 


RETURN 


RETURN 


Set complete 
flag 

(WAITFL=1) 


I F ATAL 

SysA 
exit request/ 
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System Status 
request results in the 

Q register containing 
the device code in bits 
4-7. Mag tape device 
code is 9. 

15. Device not a mag 

tape results in error 
message 6 and pro- 
gram termination. 






o 

o 

Cu 

< 

H 



h 

z 

UJ 

1 — ; 

□□ 

L_J 






D 



Ui 


U 



J 


o 

UJ 


QD 


Q 

o 

h 

< 


liJ 

cr 

o 

u 

(Z 

< 

h 

z 


< 

UJ 

X 

o 


$ 

h 

J 

a. 

u 

$ 

tn 

cr 

y 

iL 


o 

U 

I 

0 

< 

-J 

y 

h 

in 

(/) 

u. 

Q 

o 


O 

U 



/f 

^ 4 ,,^ 









b-ln 


A negative address 
means this address 
is relative to the 
given address. 

Bit 2 in the unit 
history table 
entry word set 
indicates an I/O 
error occurred. 


( 



Add this 
address to 
(lOCK & mask! 
off the sign 


Store address 
of unit 
in ADR 


Q8QUN1 
Get unit 
(^history tablj 
entry wore 




/ 

Store 

STAT 

in 


/ 


Turn off 
STAT bit 2 


Q8Q UN3 


Store in 
^unit historyy 
'able entry/ 



NOER 



Bump return 
address ; 
Restore Q 
register 



RETURN 


I 

<> 

2^ 




UJ UJ 
•fK 

l?o 



o 


n 


















A register nega- 
tive flags no 
digit conversion 
for Q8PAND* 

A register con- 
tains n as a hexa- 
dec ima 1 number . 

COMIN is equiva- 
lenced to Q8C0MI, 
They are the same 
entry point. 


QSAV = Q reg. 

Set A registc 
negative 


PAUSE 


Pause 



Q8PSEN 


QSAV = Q reg. 

Load n into 
A register 


PAUSE 


Pause n 


Bump 

return 



ISAV = I 
register 


/ Q8PAND 
Type out 
PAUSE or 
\ PAUSE a 


/ COMIN 

Wait for 
carriage 
\ return 


Restore Q,I 




Type in 
carriage 
Return 


Set A 

register 

negative 


! Q8PAND 

Type out 
STOP or 
V STOP n 


/ ($F4) \ 

/Exit 

vfor program 
\terminat ion/ 



RETURN 


RETURJN 


u 
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1. Either PAUSE or 
STOP is typed 
out. 

2. T 0 means no n 
is required. 

3. CNTR is a flag 
indicating left 
or right half of 
ASCII equivalent 
of the octal 5 
digit number. 
CNTR=0 for left 
half. 

4. Conversion to 
ASCII octal 
complete? 

5. PAUSE, PAUSE n, 
STOP, STOP n. 



o 






u 


o 
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Z-GE- TP \ 

/Get sectors 
\per record 


ua 1 to z€ro 


Store sectors 
per record i n 
SECT and in 
the table 


/ t36EREH \ 

I/O error 
lb 


Z-.£EI.P \ 

Get record 
> per f i I e^ 



ex i t 

V request 


flu i t i p I y 
rccords/f i 1 e 
by sectors/ 
record to get 
number of 
sectors for 
the file. 
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/ OSEREn 


I/O error 


/ {$FMI 


ex i t 

\ request 


Reserve cor 
V for tab I e/ 


tore start! 
sector i n 
e 


Add total n 
of sectors 
served to 
tarting sec 


V 

) 

Restore (3 
and I 
reg i sters 

i 
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DOCUMENT 

CLASS 
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SAMPLE CODE □ 
FLOWCHART 
DECISION TABLE | | 

OTHER I I 


MACH. 

TVPE 17DQ 


PAGE I 


DOCUMENT 

TITLE 


flflDFIO 


NUMBER 


ISSUE 

DATE 
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1. The routines FLOAT and DFLOT 
puts the error flag in low 
core location $C8 from which 
IFALT can pick it \jp» 

2. IFALT returns the Information 
as to whether the error 
occurred in the A register. 



b-130 

17DD 


IFALT 

Page 1 of 1 
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tJflDXP'l 
Page 1 



O 


( GETP ^ 

GET PARAM2 
ADDRESS 


TaiP»(PARAM2) 
(PARAM2) * 0 


Set Up Float® 
itig Point 
(deration 
Based on Sign 
of Parai^ (CIP) 



no “o o 

JO 73 o 

o o o 
o o c; 

Cl CZ 3L 

n n m 
H H z 

3: z 


o > n 
o z r 
m m > 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER DIVISION 






Page 2 



DXP59 








LA JOLLA 


DIVISION 


DOCUMENT CLASS ____Iill PAGE NO.__zli± 

PRODUCT NAMF 17DD MASS STQRA6E FORTRAN 

PRODUCT MODEL NO C005»3.1 A/B MACHINE SERIES 



(3SDXPT 
Page 3 of 3 


C A tat- 1 REV tO-67 



flSBXPl 
Page 1 



H *0 o 
jO 70 o 

o o o 
o o e 
c- c z 
n n m 
H H z; 
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No 
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?.□ Tables 

7.1 Symbol Table -CSYnTAB} 

7.1.1 Format 
7.1.E Description 

7.E Loop Structure Table -CLOOPTl 

7.2.1 Format 

7.2.2 Description 

7.3 FORTRAN Internal Code 
7.M Other Tabtes 

7.4.1 Specification Table IISTABl 

7.4.2 Table of Symbol Table Presets flSETI 

7.S Output Formatr PHASE A 

7.5.1 Genera I Form 

7.5.2 Statement Types 

7.5.3 Arithmetic Tree 

7 .5. 3 .1 General Form 

7 . 5 . 3 . 2 Operand Types 

7.b Loader Naps 

7.L.1 ns FORTRAN V2.0A Loader haps 
7.L.2 ns FORTRAN V2.QB Loader naps 

7.7 Description of Common Blocks 

7 . 7.1 naster Labelled Common Block 

7 . 7.2 Specification Table Labelled Common Block 

7 . 7.3 Phase A Blank Common Block 

7 . 7.4 Phase 4 Labelled Common Block 

7 . 7 .5 Phase 4 Blank Common Block 

7 . 7 -b Phase CrDr E Labelled Common Block 
7 . 7.7 Phase C and phase D/E Blank Common Block 
7 . 7 . a Compressed Symbol Table Blank Common Block 
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DIVISION 


IM'X lIMt N I n ASS 

f’Ki'l'lH I NAMI * r.'I’OKACI') 

f’RoniH I MOOl I NO. COUIj V»d-Q 


(••Oin’KAN 


('Ac ,1 


MACHINI ‘.( «ll 


((( ) 


I 700 


7.0 

TABLES 


7.1 

SYMBOL 

TABLE 

7.1.1 

Symbol 

Table Format 



15 

14 13 12 11 

10 9 

8 7 6 5 

4 3 

2 

1 0 

WORD 1 

IDUM 

I CLASS 

ITYPE 

jlCOM 

I PART 

I 

IDIM 


KRFCNT 


Bit 15 = KDUMY 

Bit 8 = ISNGL, KELSIZ 

Bit 1 ^ IREL 

Bit 0 = lEXT 


15 0 


WORD 

2 


IRSA, 

ICOMTX, 

ISNOL 




15 

14 

8 

7 4 

3 0 

WORD 

3 

IDATAS 

lEQVX, 

IT ILF 

I PART R 

IPARTL 




Bit 7 
Bit 6 
Bits 5-0 
Bit 15 


= INDUCV 
= ISFARG 
= lARGNO 
= I REF 


WORD 4 (Optional) ISYM 
WORD 5 (Optional) 
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7.1.2 [leaning and Use of Symbol Table Entries 


ITEM PHASES IN PHASES IN 

NAME WHICH SET WHICH USED 


DESCRIPTION AND USE 


♦ ISVn A A-iBiC-iE The symbol name. After Pass 2 an 

index to the symbol's entry in 
SYMTAB is substituted for all symbol 
references . External names and cons 
tants are retained in this entry 
throughout compilation 


ICLASS 

A 

AiBnCiE 

Specifies the type of entry . 

D = Unassigned 

1 = Variable or FUNCTION definition 

name 

2 = Constant 

3 = Intrinsic function 
M = Statement function 
5 = External function 

b = External subroutine 
7 = Statement label 
fl = Subroutine definition name 
T = Program definition name 

ITYPE 

A 

A T B 1 C T E 

^If appllcable-i specifies the arith- 
metic mode of the symbol . 

D = Unassigned 

1 = Integer 

2 = Real {flatting point} 

3 = Double Precision 

*IPART 

A 

A-.B 

If Dt symbol is not a byte . 

If li symbol is a BYTE . 

If 2i symbol is a SIGNED BYTE . 

IPARTL 

A 

AiB 

The left most bit of a byte . 

IPARTR 

A 

AiB 

The right most bit of a byte . 

iDun 

A 

AiBiCnE 

If non-zeroi symbol is a dummy 
argument . 


IDIU A A-iBiC-iE When ICLASS is li entry contains the 

dimensionality of the array -Cif undi 
mensioned = □> . The actual dimen- 
sions are in the ISTAB table . The 
index to this table for this array i 
in the ISTABX table. 


*See note 1 {page 7-5} 
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ITEM PHASES IN PHASES IN 

NAME UHICH SET WHICH USED 


DESCRIPTION AND USE 



KRFCNT AiB AiBtCtE Number of references to this array 

or variable or constant. Used in 
placing this entity optimally 
vis-a-vis one word relative 
addressing. 




C 
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CONTROL DATA CORPORATION • DEVELOPMENT DIV • SOFTWARE DOCUMENT 


DOCUMENT CLASS 

IMS 

PAGF NO 

PRODUCT 

NAMF_ 1700 JIASS 

STORAGE FORTRAN 


PRODUCT 

NO COOS VERSION 2*0 

MACHINE SERIFS 1700 

ITEM 

NAME 

PHASES IN 
WHICH SET 

PHASES IN 
WHICH USED 

DESCRIPTION AND USE 

ISNOL 


H,S 

. If ICLASS is 7, the statement number 
of this label. 

TREE 

ft 


If ICLASS is 2, non-zero means the 
constant is to be materialized. 

ICOM 

R - 


ICOM is the index to the ICOMT entry 
for the COMMON variable. If zero , 
this entry is not in COMMON ^ 

lEQVX 

H 


lEQVX is the lEQV table index for thi 
equiva lenced entry. Used in generati' 
definition points and for storage alL 
cation. 

KDUMY 

Hjl 


This entry is a dummy argument- incre- 
ment entry. 

IDATAS 

0 

£ 

If non-zero^ the variable was initial* 
ized in a data statement. 

IRSA 



The relative storage location of this 
entry. 

TCOMTX 

ff 

ffy3 

The SYMTAB index to a thread of the 
variables and arrays in a COMMON 
block. The first array of the thread 
is ICOMBX in the table ICOMT. ICOMTX 
is the SYMTAB index to the array 
declared prior to this array. 

I EXT 

ff 


If non- zero , this symbol appear s in 
an EXTERNAL statement. 

ISNGL 

ff 


If non- zero , this symbol appears in 
a SINGLE statement , 

IREL 

fJ 

44 S- 4'^ 

If non- zero, this symbol appears in 
a RELATIVE statement. 

IN DUG V 


P 

Non- zero if variable is current ly an 
indunction variable. 
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DOCUMENT CLASS PAr.F Kin 7-5 


PRODUCT NAME . .. 170D HASS 

STORAGE 

FORTRAN 

PRODUCT MODEL NO. COOS *3 . 1 

A/B 


MACHINE <:erif«; 1700 

ITEn 

NAME 

PHASES IN 
WHICH SET 

PHASES IN 
WHICH USED 

DESCRIPTION AND USE 

IAR6N0 

A 

A-.B 



ISFARG 

A 

A-.B 


Set for statement function argument. 

KELSIZ 

A-.B 

AnB 


If ICLASS is li the element size 
minus one . 

ITILF 

A 

A 


If ICLASS is 3-1 is the index to the 
in-line functions table. 


Note l: Double precision constants are 3 words long and are 

stored in the symbol table as follows: 


Double Precision Constant 
IS 0 


Symbol Table Entry 


Word A 
B 
C 


IS m 


lilodd 1 
2 
3 

S 



isYn-1 

ISYM 

isYn+1 


C = High order bit of word 3 which must be preserved in 
the high order bit of IPART . 
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DIVISION 

DOCUMENT CLASS 

ins 


PACE wn 

PRODUCT NAME 

1700 nass Storage FORTRAN 


PRODUCT MODEL NO. COOS VB . 0 

MACHINE SERIES 1700 

7.B 

Loop Structure Table 

CLooptl 


7.2.1 

Loop Structure Table 

Format 


UORDl 

IS 

LINDUC 

0 


WORD 2 

IS 

1 LBEG 

0 

1 


WORD 3 

IS 

1 LINC 

0 

__! 


WORD M 

IS 

am 

0 

— i 


WORD S 

IS m 
1 li-d llabel 

0 


7.2.2 

LOOP Structure Table 

ILOOPTl 



The loop structure table is available in pass A- A 
BEGIN DO entry is entered in it when Pass A encounters 
a DO statement. An END DO entry is entered upon 



encounter i ng 
a 1 lows room 

a label which terminates 
for 30 loops. ' The LOOPT 

the 
i ndex 

loop. LOOPT 
is LOOPTX. 

BEGIN DO ENTRY 

ITEn 

NO. BITS 

DESCRIPTION AND 

USE 



LINDUC 

IS 

The SYMTAB index 
variable. 

to 

the 

i nduct i on 

LBEG 

IS 

The SYMTAB index 

to 

the 

initial value 

LINC 

IS 

The SYNTAB index 

to 

the 

i ncrement . 

LID 

1 

?^0 decrementing 

1 OOP 


LLABEL 

m 

The SYnTAB index to label entry for 
terminating statemert. 


AA 3777 


nUMTB) m USA. 






CONTROL DATA CORPORATION 

LA JOLLA RESOURCE CENTER DIVISION 

DOCUMENT CLASS —Ills PAGE NO._— Zz2 

PRODUCT MAMP 17DD tlASS STORAGE FORTRAN 

PRODUCT MODEL Kin C005*3.1 A/B MACHINE SERIES 


7.3 FORTRAN Internal Code 


CHARACTER 


CODE -CDecimall 


Digits . 

Letters A-Z • 

Dollar sign $ 

Period 

Plus sign + 

Minus sign - • 

Equal sign = 

Left parenthesis -C 

Right parenthesis > 

Comma 

Slash / . 

Asterisk * 

Blank ^ . 

End of statement ^^3 . 

Single quote ' 


0-T 

10-3S 

3b 

37 

3fi 

3'=i 

MO 

Ml 

M2 

M3 

MM 

MS 

Mb ■ 
M7 

MB 


All other characters should be translated to blank and an 
appropriate message output . 

7 .M Other Tables 

7.M.1 Specification Table -CISTABI 

The current index for this table is 1ST AB? • The maximum 
table size -Cto be compared against 1ST AB2> is ISTABS and 
is ISO . The entries are pointers to integer constants 
which are dimensions . For a given symbol -i its SYMTAB 
entry is used to compute the entry in 1ST ABX table 
•£ISYnx/{2*ISYnFLJ+l> which gives the index to ISTAB of 
the first dimension • The SYMTAB entry IDIM gives the 
dimensionality • 
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?«M»2 Table of Symbol Table Presets flSETT 


Entry Pointer To 


1 

constant 1 


2 

constant 1 

.0 

3 

Subroutine 

OaOFLT 


Subrout ine 

oaoFix 

5 

Subroutine 

FLOT 

b 

constant 0 


7 

Subroutine 

OaOF2F 

a 

Subrout i ne 

0a0F2I 

T 

Subroutine 

080I2F 

10 

Subroutine 

OBSTP 

11 

Subroutine 

OaSTPN 

12 

Subroutine 

oaPSE 

13 

Subrout i ne 

08PSEN 

m 

Subroutine 

oaPKUP 

IS 

Subroutine 

OaPREP 

lb 

Subroutine 

OaOfLE 

17 

Subrout i ne 

OaOlilND 

la 

Subrout i ne 

OaOBCK 

n 

Subrout i ne 

oaoiNi 

20 

. Var iab 1 e (35(3X1 

21 

'Variable (38(3X2 

22 

Variable 08(3X3 

23 

Subrout i ne 

oaox 

2M 

Subroutine 

OaOEND 

25 

Subrout i ne 

OaRFNF 

2b 

Subrout ine 

oaoY 
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DOCUMENT CLASS .PAGE NO 

PRODUCT maaap 1700 HASS STORAGE FORTRAN 
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7.5 OUTPUT FORMAT, 

7.5.1 Statement Format of ff Output Files 

The first four words are the same for all statements. Word 1 
contains the number of words in this entry. This is zero for the 
first entry of the file. Word 2 is the generated statement number. 
Word three is the type number of the statement. Word 4 is a 
switch used to signal the generated statement or statements which 
comprise the second half of a logical IF. The file is terminated 
by an END card entry. 


Statements with statement labels will have a negative statement 
number (its absolute value being sequential in the file). Word 5 
will then be the SYMTAB index to the label. 


The remaining words in each entry are described below. Statement 
labels, variables, and arrays are represented by their SYKTAB 
indices. 


ASSEM parameter p parameter 2 > •••f parameter n 

BLOCK DATA no additional file entries 


SUBROUTINE and 
FUNCTION 


SYMTAB pointer to SUBROUTINE name (in complemented 

SYMTAB to FUNCTION (if applicable) 

SYMTAB pointer to formal parameter 1 


SYMTAB pointer to formal parameter n 

DATA pointer to entry to be set 

va lue 
pointer 
va lue 


FORMAT - contains the part of the FORMAT STATEMENT beginning with 
the first left parenthesis and ending with the last right paren- 
thesis. This is represented in internal code, two characters per 
word. 

REPLACEMENT tree^ 

tree2 

where tree^^ is the tree of the variable to be stored into 
tree 2 is the tree of the arithmetic expression 
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STATEMENT FUNCTION SYHTAB pointer to statement function 

name 

SYMTAB pointer to f orma 1 parameter 1 


SYMTAB pointer to f orma 1 parameter n 
tree 


ASSIGN I to 

n 

I SYMTAB pointer to ASSIGN variable 
n SYMTAB pointer to entry assigned 

CALL 


tree 

RETURN 


no additional file entries 

Unconditional GO TO 

SYMTAB pointer to label 

COnPUTEO GO 

TO 

SYMTAB pointer to label 1 

• 

• 

• 

SYMTAB pointer to label n tree 

Assigned GO 

TO 

var i ab 1 e 

CONTINUE 


no additional file entries 

STOP 


no additional file entries 

STOP n 


SYMTAB pointer to n 

PAUSE 


no additional file entries 

PAUSE n 


SYMTAB pointer to n 

END FILE n 


translated to CALL CJfl(3FLE{N} 

REWIND n 


CALL flflCJWND-CN} 

BACKSPACE n 


CALL flaCBCKCNI 

END 


no additional file entry needed 

If END is not directly preceded by 
STOP or RETURN, a STOP or RETURN 
statement is generated before END- 
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IfIS 

Trnimr’rrmzrrwmm 

<!dos v$.d 


PAGE NO. 


7-11 


MACHINE SERIES. 


1700 


BEGIN DO 


END DO 


SYMTAB indices for index variable, 
initial i ncrement and final values, 
term i nat i on label 

Index to LOOPT END DO 


ARITHMETIC IF SYMTAB index to 1 a be 1 ^ 

SYMTAB index to labelg 
SYMTAB index to labelg 
tree 
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LOGICAL IF 


tree 


7.5.2 Statement Types 

TYPE 


STATEMENT NAME 


0 

1 

2 

3 

M 

5 

L 

7 

a 

10 

11 

12 

13 

m 

IS 

Its 

17 

la 

1“^ 

20 

21 

22 

23 

24 

25 
2b 
27 

2a 

21 

30 

31 

32 

33 

34 

35 
3b 
37 
3a 
3=1 

40 

41 

42 


DIMENSION 

COMMON 

INTEGER 

REAL 

INTEGER FUNCTION 

REAL FUNCTION 

PROGRAM 

SINGLE 

BYTE 

SIGNED BYTE 

EXTERNAL 

RELATIVE 

EQUIVALENCE 

BLOCK DATA 

FUNCTION 

SUBROUTINE 

DATA 

FORMAT 

Replacement Statement 

Statement Function 

ASSIGN 

CALL 

RETURN 

UNUSED 

GO TO {Unconditional I 
GO TO {Computed} 

GO TO {Assigned} 

CONTINUE 

STOP 

STOP n 

PAUSE 

PAUSE n 

END 

ENDFILE 

REWIND 

BACKSPACE 

READ {Unformatted} 
READ {Formatted} 

WRITE {Unformatted} 
WRITE {Formatted} 
BEGIN DO 
END DO 

Arithmetic IF 


CA 198-t HEV 10-67 



CONTROL DATA CORPORATION 

LA JOLLA RESOURCE CENTER DIVISION 


DOCUMENT CLASS PAGE NO.— ZiM 

PRODUCT namp lino HASS STORAGE FORTRAN 

PRODUCT MODEL MO €005*3.1 A/B MACHINE SERIES— 


TYPE 

M3 

MS 

Mb 

M7 

7 . 5.3 ARITHMETIC. TREE 


STATEflEf^T NAME 

Logical IP 
ASSEi^ 

OPEN 

DOUBLE PRECISION 

DOUBLE PRECISION FUNCTIOi'^ 




7.5.3.! 


General Form of Arithmetic Tree 


yORD 1 
yORD 2 

yORD 3 

yORD M 
yORD 5 

yORD b 

yORD 

yORD 


Tree ' Indicator {-I} 

No. words in expression Cfrom yORD M to end> 

Mode of expression •£Q=f-i li=integer i 2=reaii 3=double! 

Operator {see list!- 

{assuming operator takes only one word} No- Operands 
yORD b^{word 5}-l operand pointers {base operator 
this level} 

{NEXT} operand normal/operand s a ... { u d ^ Q 3 

{NEXT}+1> operand {see list} 


NOTE : each operand {operator! except the first is preceded 

by a normal/inverse indicator ■ 


Example 

I+R-S-D 

yORD 

1 

““ 1 

WORD 

2 

IM 

yORD 

3 

3 

yORD 

M 

11 

yORD 

5 

3 

yORD 

b 

S 

yORD 

7 

s 

yORD 

s 

1 1 

yORD 


0 

yORD 

ID 

2M 

yORD 

11 

D 

WORD 

12 

D 

yORD 

13 

2M 

yORD 

IM 

R 

yORD 

IS 

0 

yORD 

lb 

2M 

yORD 

17 

I 


5 

b+{ 0 PERAND POINTER} 

= 11 


{l>cparand 
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7-lM 


machine SERIES 


b+{OPERAND P0INTER}^2>operand 
= m 


11 

b^HiOPERAND P0INTER}^3j^p,^3„d 
= 17 


Types 22 - 2M-i 2Ti 3Mi 35 are two word entries 

WORD 1 operand type 

lilORD 2 symbol table pointer 

Types 16 - 21 take two words to express type 

WORD 1 operand type 

WORD 2 symbol table pointer 

WORD 3 no. operands etc. 

Types 25 - 3D are of the following form 


WORD 1 25-, 3D 

WORD 2 symbol table pointer 

WORD 3 2 ^^% 21 for subscript variable 

WORD M symbol table pointer 

Types 2b and 31 are of the following form 


WORD 1 2br 31 

WORD 2 symbol table pointer 

WORD 3 symbol table pointer for constant subscript 


Types 27 and 32 are of the following form 


WORD 1 
WORD 2 
WORD 3 
WORD M 
WORD 5 


27-. 32 

symbol table pointer 
symbol table pointer 
2 Mt 2=i for subscript 
symbol table pointer 


for constant portion 
variable 

for subscript variable 
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SOPTWARi OOCUMtNT 


CONTROL DATA 


e DiVSLOMSNT OiV 


DOCUMENT CLASS 
PRODUCT NAME 
PRODUCT NO 


IMS 


‘CutlB 


.PAGE NQ _?-15 


.VERSION. 


MACHINE SERIES 


7. 5. 3. 2 


Types 28 and 33 are of the folloMng form 

WORD 1 23,33 

WORD 2 sy.v-jl table pointer 

WORD 3 symbol table pointer for constant portio? 

WORD 4 operator (+ or *) 

WORD 5+ff no. operands, pointers, operands 

Operand Types (Operators are Also Operands) 

does not appear in File 2 


1 . 

2 . 

3. 

4. 

5 . 

6 . 

7. 


COMMA 

AND 

OR 

NOT - 

LT 

GT 

LE 

GE 


s not appear in 


10. 

NE 


11 

“f 


12. 

- does not appear in File 

2 - represented by 

13. 

•k 


14. 

/ does not appear in File 

2 - represented by 

15. 

kk 


16. 

( does not appear in File 

2 ■ 

17. 

) does not appear in File 

2 

18. 

function 


19. 

unused 


20. 

subroutine 


21. 

unused 


22. 

function with no argument 


23. 

subroutine with no argiimefit 

24. 

non- subscripted variable 


25. 

variable only subscripted 

variable 

26. 

increment only subscripted variable 

27. 

variable and increment subscripted variable 

28. 

complex subscripted variable 

29. 

non** subscripted partial variable 

30. 

variable only subscripted partial variable 

31. 

increment only subscripted partial variable 

32. 

variable and increment subscripted variable 

33. 

complex subscripted partial variable 

34. 

Hollerith constant 


35. 

numeric constant 


36. 

calling sequence label 


37. 

stoterial constant 
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ins ^ 

17DD MASS STORAGE FORTRAN 


CD0S*3.1 A/B 


PAGE NO. 


7-lL 


MACHINE SERIES ^ llflJl 



7.b.l Mass Storage Fortran 3.1A Loader Maps 


7 • b ■ 1 * 3i Phase Al 


FTN 

3Eb3 

GOA 

HSIS 

CNVT 

MS7L 

CONV 

MSBB 

OIAG 

^SEE 

DXPT 

Mbflb 

DFLOT 

M7AF 

OUMVOL 

M=IEA 

GETSYM 

MAIA 

GPUT 

MAS3 

lOPRBA 

4A7C 

PACK 

4CDB 

flflPRMS 

MDDD 

STORE 

MDIA 

SYMBOL 

4DbD 

SAVEID 

4E21 

LOCLAl 

4ECb 

DUMYAl 

4F7S 

STCHAR 

4FI>C 

GETC 

SDDE 

ENDDO 

S027 

GETF 

S12C 

GNST 

5472 

IGETCF 

Sb4E 

OPTION 

Sbb7 

OUTENT 

SbOS 

PHASEA 

S70‘1 

PLABEL 

SC31 

(SBOS 

SCfi7 

RDLABL 

SCfl7 

TYPE 

S02S 

ENDLOC 

SFS2 


7 «b «1 Phase A2 


FTN 

3Eb3 

GOA 

4515 

CNVT 

457b 

CONV 

45BB 

OIAG 

45EE 

DXPT 

4b 6b 

OFLOT 

47AF 

OUMVOL 

4‘IEA 

GETSYM 

4A1A 

GPUT 

4A53 
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lOPRBA 

HA?C 

PACK 

MCD8 

<2flpruis 

m>oa 

STORE 

HSIA 

SYMBOL 

MOLD 

SAVEID 

HE 21 

L0CLA2 

HECL 

»UnYA2 

HF?a 

ARITH 

HFfiS 

COMNPR 

SSFE 

GETC 

Sb=lA 

GETF 

5b83 

OlflPR 

S'lF^ 

SUBSCR 

SBA7 

TYPEPR 

SEbC 

ENBLOC 

SES3 

Phase A3 

FTN 

3Eb3 

GOA 

HSIS 

CNVT 

HS7b 

COMV 

HSBB 

BIAG 

HSEE 

DXPT 

Hb6b 

DFLOT 

H7AF 

DOnVOL 

H1EA 

GETSYH 

HAIA 

GPUT 

HAS3 

lOPRBA 

HA7C 

PACK 

HCOB 

<2fiPRnS 

HDDO 

STORE 

4D1A 

SYMBOL 

HObO 

SAVEIO 

4E21 

L0CLA3 

HECb 

DUHYA3 

4F7S 

BYEflPR 

HF6S 

CHECKF 

S17C 

CONSUB 

S21F 

OATAPR 

52 Ab 

OUTENT 

5777 

FGETC 

S7AB 

FORK 

SfibF 

GETC 

SADI 

GETF 

SA22 

STCHAR 

SDbS 

TREE 

5Dlk 

ENDLOC 

L2BT 
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Phase AM 


FTN 

3EL3 

GOA 

MSIS 

CNVT 

MS?b 

CONV 

MSBB 

DIAG 

MSEE 

]>XPT 

MLfit. 

DFLOT 

M7AF 

DUnVOL 

M'lEA 

GETSYfl 

MAIA 

GPUT 

MAS3 

lOPRBA 

MA7C 

PACK 

MCDB 

(SaPRns 

MDDO 

STORE 

MDIA 

SYMBOL 

MDLD 

SAVE ID 

ME21 

LOCLAM 

MECb 

DUMYAM 

MF7a 

ARAYSZ 

MF7F 

ASGNPR 

SDOl 

BDOPR 

SDM7 

CFIVOC 

siaM 

CKIVC 

S1E3 

CKNAME 

S1F3 

CPLOOP 

5203 

ENDDO 

S2B0 

GETC 

S3BS 

GETF 

S3CE 

lOSPR 

S71M 

OUTENT 

SDE7 

RDLABL 

5E1B 

STCHAR 

SEB'l 

ENDLOC 

SEEB 

Phase AS 


FTN 

w kj «i# 

GOA 

MSIS 

CNVT 

MS7b 

CONV 

MSBB 

DIAG 

MSEE 

DXPT 

Mkab 

DFLOT 

M7AF 

DUMVOL 

M^IEA 

GETSYM 

MAIA 

GPUT 

MAS3 

lOPRBA 

MA7C 
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PACK 

HCDB 

UaPRHS 

MDDD 

STORE 

MDIA 

SYHB0L 

^DbQ 

SAVEIB 

4E21 

L0CLA5 

MECb 

DUNYAS 

^F7S 

ARITH 

HF62 

CETC 

SSFC 

GETF 

SblS 

SUBSCR 

5*158 

ENDLOC 

SC2D 

Phase Ats 

FTN 

3Eb3 

GOA 

4515 

CNVT 

4S7b 

CONV 

4SBB 

DIAG 

4SEE 

DXPT 

4bfib 

DFLOT 

47AF 

DUnVOL 

4*1EA 

GETSYN 

4A1A 

GPUT 

4AS3 

10 PR BA' 

4A7C 

PACK 

4CDB 

OfiPRMS 

4D0Q 

STORE 

4D1A 

SYMBOL 

4DbO 

SAVEID 

4E21 

LOCLAb 

4ECb 

DUNYAb 

4F7S 

ERBPR 

4FSi 

STCHAR 

4FDC 

GETC 

SOOE 

CFIVOC 

5027 

CKIVC 

SOSb 

GETF 

SQ*1b 

NODNXR 

S3DC 

RDLA8L 

SB41 

SUBPPR 

SBDF 

TREE 

SC13 

ENDLOC 

blB2 

Phase A? 

FTN 

3Eb3 

SO A 

4515 


CA RSV 10"@7 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER DIVISION 


DOCUMENT CLASS ■ PAGE NO. 

PRODUCT KiAMP 17Da HASS STORAGE FORTRAN 

PRODUCT MODEL MD CDD5*3.1 A/B —. MACHINE SERIES 


7-20 


1700 


CNVT 

M.57b 

CONV 

MSBB 

DIA6 

MSEE 

DXPT 

Mbab 

DFLOT 

M7AF 

DUnVOL 

M^EA 

6ETSYM 

MAIA 

GPUT 

MAS3 

lOPRBA 

MA7C 

PACK 

MCDB 

flapRns 

MDOO 

STORE 

MDIA 

SYMBOL 

MDbO 

SAVEID 

ME21 

L0CLA7 

MECb 

DUMYA7 

4F7a 

ASEMPR 

MF7a 

EXRLPR 

Sim 

GETC 

SlAl 

GETF 

SIBA 

IGETCF 

SSOO 

PEtJVS 

ssn 

PRNTNH 

S13A 

PUNT 

S1CT 

RDLABL 

SAQl 

SYflSCN 

SAIF 

ENDLOC 

SABB 

Phase B1 


FTN 

3Eb3 

GOB 

^S7F 

CNVT 

MS=i7 

DUMMY 

MSDC 

FCMSTK 

MbEF 

GETSYM 

M7aD 

lOPRBB 

M7Cb 

KCPART 

4Cj!^7 

1 n m fw 

suu 1 r 1 

mv.0 

KPCSTK 

4^DA 

KPC3PR 

^Fa7 

KSYMGN 

4F^f 

LABKPC 

4FE7 

LABLER 

4FFB 

PUNT 

son 

(SaPRMS 

S02F 

STOREB 

S04T 

SYMBOL 

S07D 

TSALOC 

SllA 
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LOCLBl 

SIBS 

DUnVBl 

S24fi 

ARAVSZ 

S271 

ASSEfI 

S2F3 

BANANA 

53SC 

B6IND0 

SM2L 

END 

SS3L 

ENTCOD 

ssa? 

HELEN 

St.3L 

INXRST 

S?^D 

NOPROC 

s?Aq 

PHASEB 

S7DS 

READIR 

SC7is 

SUBPUN 

SCCE 

SYMSCN 

SD3S 

ENDLOC 

SDSi 

Phase B2 

FTN 

3EL3 

GOB 

4S7F 

CNVT 

MS^7 

DUMMY 

4SDC 

FCfISTK 

m=EF 

GETSYM 

M7SD 

lOPRBB 

M7Cb 

K CP ART 

Ml*!? 

gOUTPT 

4=iC6 

KPCSTK 

4iDA 

KPC3PR 

4FS7 

fCSYMGN 

qpcfp 

LABKPC 

MFE7 

LABLER 

MFFB 

PUNT 

SQ1=I 

aapRMS 

S02F 

STORES 

504*1 

SYMBOL 

S07D 

TSALOC 

SlilA 

L0CLB2 

SIBS 

ACP 

S24A 

AFIDL 

575=1 

ASUPER 

S7BA 

C60T0 

S&7S 

FINK 

saDb 

INTRAM 

Sl&C 

PARTSB 

SB^SB 

SUBPRl 

5C4F 

SUBPR2 

SC=13 

SUBPR3 

5D21 

ENDLOG 

SDLd 
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7-22 


MACHINE SERIES. 


17DD 


7. b. 1.10 


7. b. 1.11 


Phase B3 

FTN 

3Eb3 

GOB 

MS7F 

CNVT 

MS'!? 

DuririY 

MSDC 

FCnSTK 

MbEF 

GETSYM 

M?ai> 

lOPRBB 

M7Cb 

KCPART 


KOUTPT 

^=^Cfl 

KPCSTK 

M^DA 

KPC3PR 

MFfl? 

KSYMGN 

MF^F 

LABKPC 

MFE7 

LABLER 

MFFB 

PUNT 

son 

flfiPRnS 

S02F 

STOREB 

SOMT 

SYNBOL 

SD71> 

TSALOC 

SllA 

L0CLB3 

SIBS 

ACP 

S2Ma 

ARITHR 

S7S7 

ASUPER 

S^C? 

FINK 

SA&2 

INTRAn 

5B3a 

PARISB 

SDM7 

SUBPRl 

SDFB 

SUBPR2 

SE3F 

SUBPR3 

SECD 

ENDLOC 

SFIM 

Phase Cl 

FTN 

3Eb3 

GOC 

MASS 

BKOUN 

MAbC 

i*% • ■8% i 1 m 

DUJ/ur 

1 . * .p* r» 

'ilW.D 

BSS 

MBOE 

CHKUD 

M02C 

CHOP 

MCBb 

CL12 

MEEl 

CON 

MFD7 

COUNT 

S031 

DATAST 

SOMa 

GETSYn 

S13Q 

INOUT 

S1D4 

IXOPT 

S2M3 


C A 130-1 REV 10-67 



CONTROL DATA CORPORATION 

LA JOLLA RESOURCE CENTER 


DIVISION 


DOCUMENT CLASS PAGE NO 

PRODUCT MAMP 1700 HASS STORAGE FORTRAN 

PRODUCT MODEL no. G0D5«3.1 A/B MACHINE SERIES— -—ilM 


PHASEC 

S364 

LABEL 

S73M 

LABIsM 

S7SL 

CJXLD 

S7BC 

REED 

SSHC 

SKIP 

S6BD 

SYflSCN 

S'lOt 

lOPRBC 

5^22 

oapRns 

SBAD 

ENDLOC 

SBC7 

Phase Dll 

FTN 

3Ek3 

GOOD 

42DS 

INDEX 

H2FA 

lOPRBD 

431L 

NPUNCH 

^SC7 

fifiPRMS 

M70F 

PHASEb 

^72=l 

LOCLDl 

^?D1 

DUfiYDl 

Ma=!S 

AHT 

naA3 

AdOUT 

naAC 

ADMAX-, 

HEBL 

BKDkfN 

509*1 

COUNT 

5122 

LABOUT 

5131 

NP20UT 

S21C 

RBDX 

52 MB 

RBPK 

S2aD 

TABDEC 

S2B7 

UNPUNC 

53m 

GETSYn 

5357 

SYHSCN 

5313 

ENDLOC 

53BA 

Phase ' D2 

FTN 

3Ela3 

GOOD 

M2D5 

INDEX 

M2FA 

lOPRBD 

M31L 

NPUNCH 

M5C7 

^apRns 

M70F 

PHASEb 

M721 

L0CLD2 

M7D1 

DUMYD2 

Maib 
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— - 0 

17DD 


AMT 

MAID 

GETSYM 

M8AM 

lACON 

MAD? 

IHCON 

M^2C 

NURITE 

M'lST 

PACK 


SYflSCN 

M=iBT 

BEGINO 

M'IDS 

FINISH 

MBBT 

ENDLOC 

MD^l 

Phase El 

FTN 

3Eb3 

GOE 

M2DS 

INDEX 

M2FA 

lOPRBD 

M31L> 

NPUNCH 

MSC? 

iSaPRMS 

M7QF 

PHASEL 

M72'l 

LOCLDl 

M7D1 

DUMYDl 

MASS 

AHT 

MAA3 

AH OUT 

MAAC 

ADHAX 

MEBB 

BKDIilN 

SQBE 

COUNT 

5127 

LABOUT 

S13E 

NPPOUT 

S2bD 

RBDX 

S2qA 

RBPK 

S2DB 

TABDEC 

5305 

UNPUNC 

53AF 

CONV 

53A5 

GETSYH 

53DE 

lACON 

5M2B 

IHCON 

5MA5 

NURITE 

54B1 

PACsr 

5MEC 

SETPRT 

ssii 

SYMSCN 

5hTl 

ENDLOC 

5bB5 

Phase E2 

FTN 

3EL3 

GOE 

42D5 

INDEX 

M2FA 
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lOPRBD 

H31b 

NPUNCH 

HSC7 

diaPRilS 

M70F 

PHASER 

^72^ 

L0CLD2 

M7D1 

I)UMYI>2 


AMT 


CONV 

^6A^ 

GETSYM 

MaOD 

lACON 

4'12A 

IHCON 

4'=ia4 

NURITE 

. 4==!BD 

PACK 

'-4‘^E8 

SETPRT 

4A1Q 

SYMSCN 

4B'=!a 

BEGINO 

4BB4 

FINISH 

4B3E 

ENDLOC 

4EEA 


< 


7 .L .2 Mass Storage Fortran 3. IB Loader Maps 

?oIsb 2 «X PHase Ali 


FTM 

60 k 

CFIVOC 
cm ME 
CNVT 

CONV 

DIA6 

DXPT 

DFLOT 

DUMVOL 

GETC 

GETF 

GETSYH 

6PUT 

I6ETCF 

lOPRBA 

PACK 

(SflPRMS 

RDLABL 

STORE 

SYMBOL 

ENBDO 

GNST 

OPTION 

OUTENT 

PHASEA 


3EL3 

Msn 

HSlk 

MSS'? 

HSE1 

Hh2E 

MLF^ 

MS22 

4AS]> 

MAfiD 

MAB6 

ME22 

MESB 

^Ea^ 

^E=!I> 

SIAF 

SIOM 

SIEE 

S2flC 

S2D2 

S3'^3 

sM'ia 

SL7M 

StE2 

S?lb 
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PLABEL 

SC3E 

STCHAR 

SCTM 

TYPE 

sect 

SAVEID 

SEF3 

LOCLAl 

SF'^a 

DUMYAl 

bast. 

l3ai3BDS 

bDBD 

ENDLOC 

bOBD 

Phase A2 


FTN 

3Eb3 

COA 

Hsn 

CFIVOC 

HS7A 

CKNANE 

MSDT 

CNVT 

MSET 

CONV 

Mb2E 

DIA6 

Mbbl 

DXPT 

MbFT 

DFLOT 

4a 2 2 

DUnVOL 

4ASD 

GETC 

4AaD 

GETF 

4ABa 

GETSYM 

4E22 

GPUT 

ME SB 

IGETCF 

ME a 4 

lOPRBA 

ME'ID 

PACK 

SIAF 

aaPRPIS 

SIDM 

RDLABL 

SIEE 

STORE 

S2ac 

SYMBOL 

S2D2 

ENDDO 

53^3 

GNST 

SM'^a 

OPTION 

Sb7M 

OUTENT 

SbE2 

PHASEA 

S71b 

PLABEL 

SC3E 

r* /• 1- J AO 

a 1 \>n MIX 

r r-aii 
JIV. J“f 

TYPE 

SCCb 

SAVEID 

SEF3 

L0CLA2 

SF=ia 

DUI1YA2 

bOSb 

BYE (3 PR 

bOBD 

CHECKF 

b2BM 

COMNPR 

b3S7 

CONSUB 

b3F3 

DATAPR 

bM7A 

DinPR 

b=iMB 
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17D0 HASS STORAGE FORTRAN 


PAGE NO.. 


?“27 


CD0S*3.1 A/B 


MACHINE SERIES. 


17DD 


EXRLPR 

LAF'I 

FGETC 

LBS'I 

FORK 

bClD 

PEflVS 

bD87 

PRNTNn 

71ES 

SUBPPR 

7274 

svnscN 

731C 

TYPEPR 

733a 

ENDLOC 

734F 

Phase A3 

FTN 

3Eb3 

GOA 

4Sn 

CFIVOC 

MS7A 

CKNAHE 

MSBT 

CNVT 

H5E1 

CONV 

4t2E 

DIA6 

4bbl 

OXP1 

4bF=l 

DFLCT 

4622 

DUnVOL 

4ASD 

GETC 

4A6D 

GETF 

4AB6 

GETSYM 

4E22 

GPUT 

4EEB 

I6ETCF 

4E84 

lOPRBA 

4E'1B 

PACK 

SIAF 

(36PRnS 

S1D4 

RDLABL 

SIEE 

STORE 

526C 

SYMBOL 

S202 

ENBDD 

S3'=13 

GNST 

S4'^6 

OPTION 

Sb74 

OUTENT 

SbE2 

PHASEA 

S71.b 

PLABEL 

SC3E 

STCHAR 

SC14 

TYPE 

sect 

SAVEID 

SEF3 

L0CLA3 

SFia 

DUflYAB 

bOSb 

ARAYSZ 

boei) 

ASEMPR 

bl3F 

ASGNPR 

b3D6 

BDOPR 

b34E 

CHECKF 

b46B 
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CKIVC 

bS2E 

CONSUB 

bS3E 

CPLOOP 

tscs 

F6ETC 

bb?2 

FORK 

b?3b 

ERBPR 

bfiDD 

noDnxR 

13^23 

PUNT 

7Daa 

ENDLOC 

7DC0 

Phase AM 


FTN 

3Eb3 

GOA 

Msn 

CFIVOC 

MS7A 

CKNAflE 

MSD^ 

CNVT 

MSE*i 

CONV 

Mb2E 

DIAG 

Mbbl 

DXP=I 

MtF'1 

DFLOT 

MB22 

DUnVOL 

MASD 

6ETC 

MAaD 

6ETF 

MABa 

GETSYfl 

ME22 

GPUT 

MESB 

IGETCF 

MEaM 

lOPRBA 

ME'ID 

PACK 

SIAF 

flflPRnS 

SIDM 

RDLABL 

SIEE 

STORE 

S2ac 

SYMBOL 

S2D2 

ENDDO 

S313 

6NST 

SM'ia 

OPTION 

5b7M 

OUTENT 

St.E2 

PHASEA 

S71b 

t-LAOC-L 

SC3E 

ST CHAR 

SCTM 

TYPE 

sect 

SAVEID 

SEF3 

LOCLAM 

SF^a 

DUMYAM 

Lost. 

ARITH 

bOBD 

SUBSCR 

b7t.1 

TREE 

bA2E 

ENDLOC 

LFM3 


/r^ 
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CONTROL DATA CORPORATION 

LA JOLLA RESOURCE CENTER ^ DIVISION 

DOCUMENT CLASS __inS PAGE NO 

PRODUCT NAMP 17DD HASS STORAGE FORTRAN 

PRODUCT MODEL Nf> CDD5*3 .1 A/B MACHINE SERIES— _Jl295. 


Phase AS 


FTN 

3Eb3 

GOA 

Msn 

CFIVOC 

MS7A 

CKNAHE 

MSDI 

CNVT 

MSE'1 

CONV 

Mb2E 

DIAG 

Mbbl 

DXPT 

MtiFT 

DFLCT 

H&22 

ounvoL 

MASD 

GETC 

HAflO 

GETF 

4ABa 

GETSYfl 

4E22 

GPUT 

4ESB 

IGETCF 

MEaM 

lOPRBA 

4E=5D 

PACK 

SIAF 

flapRns 

S1D4 

RDLABL 

SIEE 

STORE 

S2ac 

SYMBOL 

S2D2 

ENDBO 

53*^3 

GNST 

SM'ia 

OPTION 

Sb?4 

OUTENT 

SLE2 

PHASEA 

S7Mi 

PLABEL 

SC3E 

STCHAR 

SC14 

TYPE 

SCCL 

SAVEID 

SEF3 

L0CLA5 

3F=ia 

DUMYAS 

bosb 

BDOPR 

bDBD 

CKIVC 

hlFA 

lOSPR 

b2DA 

ENDLOC 

j=afi 

Phase B1 


FTN 

3Eb3 

GOB 

4Sa3 

CNVT 

45*1^ 


CA iss-1 mmv 



COKTROL DATA CORPORATION 

LA JOLLA RESOURCE CENTER DIVISION 

DOCUMENT CLASS ^ PAGE NO 

PRODUCT NiAMP 17DD HASS STORAGE FORTRAN 

PRODUCT MODEL mo C0D5»3.1 A/B ^ .MACHINE SERIES 1295. 


DUMMY 

MSDE 

FCMSTK 

SbFl 

GETSYM 

H7flF 

lOPRBB 

M7Ca 

KCPART 

MDS2 

KOUTPT 

HDfi3 

KPCSTK 

MD'^S 

KPC3PR 

S3M2 

KSYM6N 

S35A 

LABKPC 

S3A2 

LABLER 

S3Bb 

PUNT 

S3DM 

(2SPRMS 

S3EA 

STOREB 

SMOM 

SYMBOL 

S43a 

TSALOC 

S4DS 

ARAYSZ 

SS70 

ASSEM 

SSF2 

BANANA 

SbSB 

B6IND0 

5725 

END 

5535 

ENTCOD 

5aaL> 

HELEN 

5=135 

INXRST 

5A5F 

NOPROC 

5AA3 

PHASES 

5ADM 

READIR 

5F7b 

SUBFUN 

5FCE 

SYMSCN 

bD35 

ACP 

bU51 

AFIDL 

t.5b.O 

ASUPER 

bbCl 

CGOTO 

bb7C 

FINK 

bbDD 

INTRAM 

b7'13 

PARTSB 

b‘lA2 

SUBPRl 

bA5b 

«r» 1 * *-% P5» 

^uori\c 

n A rs A 

bMIM 

SUBPR3 

bB2a 

ARITHR 

bBbF 

ENDLOC 

bDDF 

Phase Cl 


FTN 

3Eb3 

GOC 

MA51 

BKDtilN 

4A77 

BLDUP 

4ADb 

BSS 

MBIT 


/ 
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CONTROL DATA CORPORATION 

LA JOLLA RESOURCE CENTER DIVISION 


DOCUMENT CLASS 

PRODUCT NAME 

PRODUCT MODEL NO. 


ins 


1700 HASS STORAGE FORTRAN 


PAGE NO. 


7-31 


CDDS*3.1 A/B 


MACHINE SERIES. 


1700 


CHKUO 

^B37 

CHOP 

MCCl 

CL17 

4EBC 

CON 

4FE2 

COUNT 

SD3C 

DATAST 

S0S3 

GETSVn 

S13B 

INOUT 

SIDF 

lOPRBC 

S2ME 

IXOPT 

bOFC 

LABEL 

L23D 

LABIN 

L2SF 

PHASEC 

L2CS 

(SaPRnS 

bb2b 

(3XLD 

bbMO 

REED 

bbDO 

SKIP 

L734 

svnscN 

L7flA 

ENDLOC 

b7Ab 

Phase D1 

FTN 

3Eb3 

GOOD 

MAST 

AHOUT 

MA7C 

ADNAX 

S07A 

GEGINO 

S27D 

BKDliJN 

53CS 

COUNT 

SM2E 

FINISH 

SMMS 

GETSVn 

SSFl 

lACON 

SbTS 

IHCON 

SbEF 

INDEX 

S71C 

lOPRBD 

5736 

LABOUT 

SCEb 

NP20UT 

SDCT 

NPUNCH 

SDF6 

NURITE 

SFMO 

PACK 

SF7B 

PHASEb 

SFAO 

flfiPRnS 

bOM3 

RBDX 

bOSD 

RBPK 

bOTF 

SYMSCN 

bOCT 

TABDEC 

bOES 

UNPUNC 

blbF 

ENDLOC 

bias 
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CONTROL DATA CORPORATION 

LA JOLLA RESOURCE CENTER DIVISION 

DOCUMENT CLASS _i!ll PAGE NO Z 

PRODUCT NAMP 1700 NASS STORAGE FORTRAN 

PRODUCT MODEL wn CDD5*3.1 A/B MACHINE SERIES 


Phase El 


FTN 

3Eb3 

GOE 

MAST 

AflOUT 

MA7C 

ADMAX 

SDfiB 

BEGINO 

S26E 

BXOUN 

S^DA 

CONV 

SM73 

COUNT 

SMAC 

FINISH 

SMC3 

GETSYH 

SbbF 

lACON 

S713 

IHCON 

S7bD 

INDEX 

S7=n 

lOPRBD 

S7BS 

LABOUT 

SDb3 

NP20UT 

SEas 

NPUNCH 

SEBD 

NURITE 

bOD5 

PACK 

bQ^O 

PHASEb 

bObS 

(sapRns 

bioa 

RBDX 

bl22 

RBPK 

blbS 

SETPRT 

biaF 

SYMSCN 

b317 

TABDEC 

b333 

UNPUNC 

b3BD 

ENDLOC 

b3D3 


CA 1SS*1 Ptev IO -«7 



CONTROL DATA COEPOEATIGH 


DIVISION 


DOCUMENT CLASS MS — PAGE NO.— 

PRODUCT NAME 1.?On Mass ?;tr.ragg. FQRTRAM 

PRODUCT MODEL NO. ■»j3.r£fl0,h?.<:l «fl HACHtKiE SERtES —.12(10 


LUVl'?^ 

5C^9 

Port 

3«08 

SUrtHART«wE!__ 

20F 

OUMYMi 

!:>Ce7 

pORTRan 

3 « Ote 

SUmmARY*^HEL 

2ip 

ARAYSz 

bU^^F 

FORTRAN 

3« OB 

SOmNaRY-REL 

42a 

ASSlrtMH 

bOOQ 

fohthan 

3 ® QB 

summary«h£l 

40A 

mSonFh 

bF 6 h 

FORTRAN 

3 & OH 

SOmHARY-HEL 

32A 


bPb 1 

FOHIHaN 

j ® 0 ^ 

^wHiMARV^PcL 

33a 

ChtCi^P' 

6ULb 

FORTRAN 

3 ® Ob 

SOMHaRV’^HEL 

20a 

I '^I:; 

blOE 

i*ORTKA|\j 

3 ® OB 

SO|UMARf»R£. 

36A' 

CONSUti 


fortran 

3 ,» OB 

SgMMAR¥“REl: 

3QA 

C p 1 0 0 (- 

6'dd^ 

Fortran 

3«0.B 

SOmmA«Y«hE| 

4iA 

UaTaPK 

62!r« 

Fortran 

3®Qd 

SOMNARV-RtC 

3lA 

FGtTc 

04be 

FORTKaN 

3 ® OB 

sumnary-rel 

2IA 

fopk'' 

b4Lp 

fortran 

3® i)6 

summary-rel 

22a 

EHOi-'H 

fabo.q 

FOR than 

3®U8 

SUmMAHY-REL 

3«A 

MOUMAH 

06^!'! 

FORTHa''!' 

3roB 

SOmmaRY-REL 

j9a 

PUwT 

bd3c 

FORTRAN 

3» 00 

summary-rel 

2 /A 

EnUL‘-»C 

607b 

FORTRAN' 

3®qB 

SOmMaRY»R£L 

1 ?F 

rti* 


» 10 


^CS!fFU|;^|A3fffb } 

IH 

i H 

#p 

FT«-m 3DC4 C0PYHI6HT CONT^^OL DATA CUSP® 1972 

GUA 44?a Fortran 3®qB sDmhary^^rEl 


CKiVuC 

44Up 

fortran 

3 ® OB 

SOmHARY^^KtL 

3^A 

1 CK''<A'''t. 

4539 

Fortran 

3, OB 

SOMMARy.»R£L 

3&A 

i CNYT 

45^9 

FORTRAN 


SO^H^R 

0 

1 

? 

45G7 

pORTfiAN 

3»QB 

SOm(i^ARY«R£|„ 

0 

i 

1 ■ 

1 

S 

i 0 1 A3 

4SdA 

FORTRAN 

3 ® OB 

SUMMARY-REL 

04F 

EXF>^ 

464A ■ 

FORTRAN 

3 # 08 

SOMMARY-REL 

05F 

FLOa|^ 

45 F T| 

FORTRAN 

3.08 

somhary„rel 

UGF 

geIc 


FOHTRa'^ 

3 ® 0|3 

BOM'^A^^Y-REL 

i4p 

Gt [F 

4 Bom 

FObth^N 

3 @ QB 

SUMMA|^Y-|^£L 

04A 

GE r b ^ i.i 

4 HO 3 

FoRTRAw 

3 ® OB 

SOj^mARY-REi 

otf 

epoT ■ 

4B9r 

FORTRAN 

3 

SOmHASY“>REL 

o2a 

lQjc.T'-(- 

4 ri C 

fortran 

3 ® y-B 

SUmNARY-REL 

1 bF 

IOPR0A 

4B0f 

fortran 

3’i'yB 

SOmMARY““REL 

OdF 

PACK 

4£u6 

fortran 

i ®Qb 

SUMMARY“”REL 


QriPRiib 

4Fu A 

fortran 

3^08 

SO^l^MARY'“R£L 

lOF 


M ITT? 


miwro m USA. 




CONTROL DATA CORPORATION 


DIVISION 


. DOCUMENT CLASS PAGE no 7.H3 

PRODUCT NAME ITOH flA5;5: Stnragp FORTRAN 


PRODUCT MODEL NO C005«3 «a-£DQb3|tH ■ Q 


MACHINE SERIES 

17DD 

i hdlaul 


fohthan 

3»0R 

summary-rEl 

lOA 

i STUhlt 

aFC 3 

FORTRAN 

3.00 

summary-rel 

IlF 

j §yHduL 

4FF? 

Fortran 

3.0b 

SUMMApY-pEL 

03a 

I 

5099 

FoRTRAin 

3.; 08 

SOmnARY-rEl 

29a 

i GNi>r 

b 1 

FORTRAN 

J*UB 

SOMMaRY-REL 

05a 

1 OPriWN 

53o| 

fortran 

3«u8 

SUmmARY-REl 

XbF 

i OUlE'Lf 

□ 3 Cr 

F 0 R T R A N 

3 # Qd 

SOmMARY-HEL 

Ot>A 

i PflACJCA 


FORTRaN 

3.0b 

SOmMaRY-REL 

07a 

! PL«oc.l 

bAK 

fortran 

3 • Ob 

SOmmARY-R£l 

OMA 

i STChAp 


fortran 

3 • Ob 

SOpMARY-REL 

llA 

1 TYPt 

59cj ■' 

FORTRAN 

3 * Ob 

SOMMaRY-REL 

1 <=^A 

: SAVtiU 

5 BG 3 

Fort rmn 

3.0b 

SUmmARY-pEj_ 

13a 

1 

5CE9 

Fortran 

3 • Ob 

SOmmARY-H^L 

2EF 

1 


FORTRa'"^ 


SOmMaRY-REL 

23f 

! 

oO'+F 

foptrAn 

3,Uri 

SUMMApY-pEL 

14A 

} SUbS'^K 

o3lJ3 

FORTRAN 

3.08 

sumrary-rel 

17a 

' TdcE 

ob9' > 

Fortran 

3 « Ob 

SOMMaRY-HEL 

41 A 

1 EiMULdC 

! Ii'l 


fortran 

3 ,0b 

SyMMAR y^Ht-L 

1 ff 

j IN 






1 A<+ « 

i N 

1 f $ A 





*N»iO 

IN 






F T IN 

3UC4 

CopYRjOriT Control oat a Cqrp* 197^ 

GUM 

-♦■ 4 / , j 

fortran 

3 ,UB 

SOMMARy-R£L 

02F 

CFiVuC 

< 4 . 4^, U K 

fortran 

3. OB 

SOmNARY-REl 

3^A 

CKNmi’iE 

4bb9 

F UkTRAN 

3,08 

SOmMARy-R£L 

3bA 

CN'YT 

4 b 9 

FORTRAN 

3»0d 

sdmmary-rel 

01a 

COinV 

^b'oj 

fortran 

3 « Od 

SOmmARY-RfL 

03p 

UIAG 

^ b /i 

r OH T>^ AN 

3 ‘OP 

sonmary-r£l 

04F 

EAF9 

46H-A 

FORTRAN 

i.Ub 

SOMMARY-’REL 

Q5F 

FLOAi 

46^3 

FORTRAN 

3. OB 

SOmRARY-REL 

08F 

6EiC 

4^3 ) ■ ;, 

FOhTHaN 

3.0b 

SUMHaRY'^Rc.L 

IA-f 

GElF 

^ 80 H 

FOkThAn 

3.00 

SOHMApY-rEl 

04A 

GETS'^fj-i 

4 b 3 

Fortran 

3 « 00 

SOmmArY-rEl. 

07F 

GPC'T ' 

AHOq 

FORTRAN 

3.08 

SOmMARY-REL 

02A 

IGcTCF 

4bCF 

t’orThan 

3»o8 

somnary-rel 

iSF 

IUFKoa 

4BUF 

FORTRAN 

3«0B 

sommary-rel 

08F 

PACa 

4Ec^h 

FORTRAN 

3.08 

somrawy-rel 

Q9F 

QfjF R .-'iS 

H- F 0 ■ 

fortran 

3 # Qb 

SOmRARY-REL 

lOF 

POLAJL 

4FPs 

Fortran 

3.08 

SOmRAHY*'REL 

iOA 

S T U K c 

>+F09 

FORTRAN 

3.08 

SOmRARY-REl 

UF 
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CONTROL DATA CORPORATION 


DIVISION 


DOCUMENT CLASS 

PRODUCT NAME 

PRODUCT MODEL NO.. 


MACHINE 


PAGE NO.. 


! ■ 

SYi'-iayL 

mFFy 

i 

1 . ' 

Ei'JUOB 

bo9q 

i 

6N3T 

blAn 

1 

OP 'x J n 

b3o 1 


OijTE NT 

b3Cr 


PHmScm 

b4*^3 


PLhBc.L 

bSpH 


STCHAk 

89A£ 


TYPE ■ 

6930 


SA YE i U 

58 a A 


LO*^L^^ 

8 C 29 


PUNY My 

aCt/ 


BOppR 

50'+p 


CK 1 vC 

bEB 3 


xoSpR 

b£9p. 


ENOLOC 

IN 

65‘»5 





IN 



'**' N » F 0 )j j A b 

♦ » ♦ 8 


IN 



16 



IN 



»p 



FTn 

3DC4 

t 

G08 

44 D 4 


CrsiVT 

44t.A 

- 

pyMM i 

452b 


FCHS i'k 

<+639 

i 

GEtstH 


V... 

IoFRob 



kCPAbT 

4C3s 



4C“»b 
4 C 0 B 


KPC3H , 

3 J‘49 


KSYMOn 

b'-’b 1 

1 

LA 8 KPC 

b'jpQ 

1 

i 

i 

LacjLi_R 

biPp 

i 

poiij r 

bl 2 p 

J ’V...' 

O^hk'^S 

bl *♦ 1 

i 

STORc. 

bi 3g 

i 

SYNBOl 

81BF 

i 

TS^i uC 

522c 

! 

f 

aRaT^-^ 

52a7 


FQRTKaN 

FORTRAN 

FOhtrAN 

FowtRAN 

Fortran 

FORTRAN 

FORTRa'*^ 

Fortran 

FORTRaN 

Fortran 

Fortran 

FGRTRaN 

Fortran 
FOR tRAN 


3*00 SUiviMARY-RtL 

3»qB SO^MaRY-HLL 
3iOb SUMMAj^y-pfEL 

3.08 SOmmARY“R£l 
3,UB S(JHMARy-R£L 
3»0o SOmMaRY-RLL 
3.0i3 SOmMaRY"R£L 
3. OB SUmMARY-REl 

3 ;;ob sommary-rel 

3.0B SO(uj|y^ARY-REi 
3.0B SOniiv|ARy-REj_ 
3.0 b SOmMaRY-REL 
3.0B sOMfi()ARY"’R£L 

3.08 sOMNArY-rEL 

a’.oH sommary-rel 

3.08 SjMMARy-REL 


COPYRIOmT 
FORTRaT^J 3 

Fortran 3 
Fortran 3 

FORTRAN 3' 
FORf^AN 3 
FORTRaN 3 

Fortran 3 
rSKWAij 3 

FORTRAN 3 
FORTRaN 3 
Fortran 3 
FoRTRAisi 3 
FORTRaN 3 
FoRTrAn 3 
FoRtRAN 3 
FORTRaN 3 


CONTROL DAT 

,08 sommary- 

♦08 SDuaARY- 

.08 somHArY- 
,D8 SDmMARy- 
,08 soMMARy- 
« Uy SOmMaRY" 
.'08 SOmmARY"* 

,08 sJMMArY- 
VqB SOmMARY- 

.08 cyMMAoY- 
iOy SOmMakY” 

,08 summary- 

•Cb SOmMaRY" 
.08 SOmMARY- 
.08 suMMArY- 
^08 SUmMARY- 
<•08 sOmMArY- 
»08 SOf^MARY** 
SOmMaRY* 


A CORP, i972 
REL 25F 


AA 3777 


PRINTED IN USA 




» I o 
IN 


F T «\i 

3uC4 

COPYNitirif CUNTHOL data CORF 

1972 

GU V 

49 3 

F ORTHai^ 

j . Ob 

SOmMARY-REL 

2«F 

BKu vvH 

49U^ 

P^OHTKA,^i 

3 » Ob 

SU^^mArY-rEl 

OiC 

r-> U G F 

4 A 3 Q 

fortran 

3,0b 

SOf.iMARy.REL 

OEC 

dS^ 

4A7c 

FORTRAN 

3„0b 

SUMMARy.REL 

03C 

CHr\^'^u 


FORTRAN 

3 • 0 ^ 

SOmMaRY-Rel 


CHUF 

ac i A 

FORfRAN 

UB 

SUmHmRY-REL 

ObC 

Cl12 ■ 

A-tJi-j 

FORTRAN 

3 ^ QB 

SOmMARY.REL 

06C 


aF 

fortran 

3« uB 

SUmMARY-REL 

OTC 

COUN i 

aFoa 

fortran 

3#0B 

sommary-rel 

08C 
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CONTROL DATA CORPORATION 


DIVISION 


DOCUHENT CLASS. 
PRODUCT NAME_ 


JLC2S. 


1.700 Mass KtnrA qp FORTRAN 


PAGE NO.. 


7.3b 


PRODUCT MODEL Mn C005»3 .Q-EOOkacH.Q 


MACHINE SERIES. 


jomL 


OAl AOT 

(3e!3Th 

iNOU i 

lOPHac 

ixu;*r 

L Ao I N 
PH AijC.C 
Q d P H i”l S 
waCu 

RtLu 

SKIP 

ENUlOC 


4F7f 


i N 


hOF t 
bie] 

^OJF 
6 i 4 h 

6lbD 
PI ^4 
6529 
054 9 

05U3 
06 in 
oOift 
00 A 3 


FORTRAN 

fortran 

FORTHA'^i 

FORjRaN 

Fortran 

Foktka,9 

Fortran 

Fortran 

fortran 

fortran 

fortran 

FORTRAN 

FORTRAN 


i.Oi 

3;0.B 

i.Od 

3*0^ 

i.Od 

3*od 
3.! yd 

3 e OB 

od 

OB 
OB 

OB 


3. qB 


SUMMARY-ReL 

SDmmARY-K£i_ 

SUMMaRY-REL 

SuMNARvREL 

SOmMARY-REL 

SUmm^rY-rEl 

SOmMARY-REL 

SOmNARY-REL 

summary-rel 

SOmMARY-R£L 

summary-rel 

sommary-rel 

SUmmArY-rEl, 

bommary-rel 


09C 

IOC 




12C 

I4C 

15C 

i3C 

lOF 

idc 

17c 

18c 

19C 

l?F 


^K,iB 

I'M 


*N»FOr i Ci » » *b 
In 

*K»Io 

In 



F T n 

3 OC 4 


GOUD 

490 A 


AivjOU 

490d 


AUHAa 

4FCej 


BEBINO 

dlC7 


BKOWN 

53 OF 


COUiMf 

537 & 

, . 

FINIGH 

S39-? 


GE|S Tjv) 

55 3b 


lACOH 

55 OF 


IhCON 

563b 

i 

I Nu£X 
lOPRBu 



LAcSguy 

5C3i 

1 

j 

NPBgOT 

doll 


npunCh 

5L)4g 


N w R I IE 

5Edi 

1 

1 

PACX*' 

5EBc 


PHAGCb 

5EE, 

1 

UBi^RnS 

5F7| 


copyright 
fortran 3 
Fortran 
F 0 R T H A 
FORTRAN 
FORT Ran 

Fortran 

FOR f KAN 

Fortran 

FORTRAN 
FORTRAN 


FORTRAN 

Fortran 

Fortran 

fortran 

fortran 

Fortran 

Fortran 

fortran 

Fortran 


control data CORP, 1972 
.OB SOmMARY-REL 30f 

.06 SO^mArY-rEl oio 

.06 SoMMARy-KEL 020 

•Ob sommary-R£L o3q 

•Ob SOmMaRY-HEL OaD 

•OB SOhmARY-REL 05D 

>06 SUmmaRY-REL 
^5b sommAry-rEl 
•Oh summaRy-R£l 
,06 SOmMARY-REL 


'Ob sommary-rel 
>Q b sommary-rel 

',oa sommArY"r£l 
iQB SOMMARY-R£i_ 
.06 SUMMARY-REL 

,06 sOmmary-rel 

’08 summary. REL 

06 summary-rel 
08 summary-rel 


liU r\ 
\J'^U 

iOc 

oro 

060 

090 

3IF 

lOD 

4o 

120 

13d 

09F 

lAO 

lOF 
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CONTROL DATA CORPORATION 

LA JOLLA RESOURCE CENTER DIVISION 

DOCUMENT CLASS ; PAGE NO._ZzlZ 

PRODUCT NAME 1700 riASS STORAGE FORTRAN 

PRODUCT MODEL NO CDD5»3 .1 A/B MACHINE SERIES 


7.7.M 


Phase M Labeled Common Block 


1. INDTAB 

2. INFTB 

3. NBSSn NADC 

M. INFTBL 
S. INFTBN 
b. INFTBX 
7. KODNAD 


preset table of constants - Those 
indicator words {see output descrip- 
tion! which are used several times 
are preset in this table for easy 
ref erence . 

Intrinsic function table . A preset 
loopup table for determining whether 
a f unction is intr insic {see HELEN! • 

constants preset to the instruction 
code values: i • e • n NBSS = 

NINA = 31i NTRAfl = b2i etc. 

INFTB table entry length . 

INFTBN table length. 

index to INFTB table {not prasatl . 

part of INFTB entry containing 
f unction name as coded . 


KFTYPE 

10. NLINE 

11. NPHTRS 

12. KSPTAB 


part of INFTB entry contain’ nc 
f unction type : 

1 = integer 

2 = real 

3 = double precision 

part of INFTB entry containing 
in-line/non-in-1 ine .flag. 

part of INFTB entry containing 
number of parameters of function . 

preset table of special pointers to 
sybmol tablei e . g • i Q constant*! 1.0 

constant-? and pointers to implied 
subroutines . 
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15. 

1 ,TYP 

working cell 

of BCINDO and BANANA 

16. 

MBEGIN 

working cell of PHASE 4 holds label of first 
address of statement funct ion 

17. 

lADDTT 

parameter to 

IN TRAM (additive) 


19. 

INTRAX 

INTRAS table index 

20. 

IPTR 

parameter to INTRAM (operand pointer) 

21. 

ISBSCP 

parameter to TNTRAM (subscript pointer) 

22. 

JXX 

index to input buffer set by READIR 

23. 

KBEGIN 

working cell of PHASE 4 holds label of first address 
in program 

24. 

KBIAS 

hold label of cell containing program, base (PliASE4) 

25. 

KBYTX 

byte index for constructing floating point 
calls (FCMSTK) 

26. 

RENTER 

working cell of PHASE 4 

27. 

KENTRY 

working cell of PHASE 4 

28. 

KEXEC 

working cell of PHASE 4 

29. 

KEXTYP 

set by AGP as flag to give expression type of tree 
just processed 

30. 

KFCETX 

used for KPCSTK 

31. 

KFCSW 

floating calling sequence switch (FCMSTK) 

32. 

KFFSAV 

contains label of cell used to save index FF 

33. 

KFINDX 

index used in building floating calling sequences 
(FCMSTK) 

34. 

Kf’LAM 

current floating addressing mode (FCMSTK) 

35. 

KINTYP 

instruction type ( parameter to INTRAM) 
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3L. 

KLLTBX 

KLLTB table index 

37. 

KNTROL 

control parameter to INTRAfl 

33. 

KOBX 

output buffer index 

3T. 

KPRNAM 

program name . Working cell of PHASE 

^a. 

KiSSAV 

contains label of cell used to save 
a register 

m. 

KRETRN 

contains label of first cell of 
RETURN code sequence 

M2. 

KRTNS 

set in PHASEB 


H5. KSFNAn 


Statement function name holder 




M7. 

KSTYP 

set in PHASEB 

MS. 

KTCATX 

KTCAT index 

MT. 

LEVEL 

index to level tables for ACP 

50. 

LIFTX 

index to level tables for L06LIF 

51. 

L06IF 

logical if switch LLOGLIFl 

52. 

iDnn 

Holder for local variables 
equivalenced to common 

53. 

IDPFLG 

Indicates location of 'current ' 
value -1 


0 - dp value is in dp pseudo- 

accumulator 

1 - dp value is in locations 

CS-C7 
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7.7. 6 Phase C, D, E Labelled Common Block 
NPCBF binary output buffer 

lOVTAB table of pointers to places in program where addresses of 

variables may be found 

NPTBF print image 

IXSl 

' ISX2 index history of program being compiled 


7.7.7 


Phase 

IN BUFF 

NOBUFF 

NRCD 

NFTAB 

IV 

NSUMD 

NDFL 

NADX 

NSUMVS 

IXC 

IXFLAG 

IXF 

IXQ 

IXSX 

lUSE 

IF IX 

NOUTOT 

NOWO 

NL 

NT 

NA 

NS 

ND 

NR 

NQ 

NF 

NTYPE 

NOWI 

NO PC 

NOPT 

NADD 

NXPT 

NATYPE 

ICT 

INCT 

NOCT 


C and D/E Blank Common Block (some array dimensions 

differ in phase D/E) 

Input buffer 

intermediate output buffer 
intermediate record holder 
future table 
•table of temporary holders 
maximum length of IDVTAB 
modify, don’t modify addressing switch 
IDVTAB index 

maximum size of future table 
current Index 

effect of current command on index 

current contents of $FF 

current contents of Q 

index history tables index 

$FF has been used switch 

point to which addressing is fixed 

number of words in intermediate output buffer (circular in D/E) 

number of words in current imtermediate output record (-2) 

ignore record switdh 

record is label switch 

record has additive switch 

record has subscript switch 

don’t modify addressing switch 

2 word Instructioh switch 

command uses Q register switch 

ADC type Indicator 

command type - second phase 

number of words in input record (-2) 

opcode 

address pointer 
additive pointer 
variable subscript pointer 
command type - first phase 
number of words command occupies 

input buffer index ^ in phase D/E circular buffer index 
output buffer index ; in phase D/E, next available 
circular buffer location 
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NSTYPE 

LRS 

NOBW 

NBINC 

NPCl 

NSETX 

NRM 

NPTBFX 

NRCl 

NRC2 

NW2FL 

NW2 

NBFL 

NXCON 

NASCl 

ISCOUN 

ICOUNT 

NOFS 

NODS 

NDXJ 

NX 

IHEAD 

INOB 

INC 

NDSTAB 

IXS3 


first executable instruction encountered switch 
long right shift 16 needed indicator 
no. words in binary outputf this record 
current index into binary output image 

top of list output buffer 
relocation of current command 
list output buffer 

relocation - words 1, 2 of current command 

processing second half of 2 word command 

second binary word of 2 word command 

last word flag - binary output 

constant value - used by SETPRT 

pointer for address field - used by SETPRT 

address counter - second phase 

address counter - both phases 

future table index 

NDSTAB index 

temporary holder for ICOUNT 
INBUFF, NOBUFF index 
•top* of circular buffer NOBUFF 
size of NOBUFF 

NOBUFF subscript (not 'circular') 
table of references to duitimy parameters 
Index history of program being compiled 
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7.7.8 Compressed Symbol Table Blank Common Block 

(phase D 5.QA only) 

ICSYFL Length of compressed symbol table 

entry 

ICSYNS Number of sectors needed for com- 

pressed symbol table page 

ICSYMP Compressed symbol table page 

indicator 

ICSYPC Current compressed symbol table 

page 

ICSYPS Compressed Symbol table page size 

CSYMTB Compressed Symbol Table 
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DOCUMENT CLASS 

PRODUCT NAME __ 

PRODUCT MODEL NO CQD5 VS.Q MACHINE SERIES 


S.O OBJECT TinE ARITHMETIC ROUTINES 
fi.l Introduction 

This chapter deals with the following object time routines! 


External Function 

Symbolic Name 

Trigonometric sine 

SIN 

Tr igonometric cosine 

COS 

Hyperbolic tangent 

TANH 

Exponential 

EXP 

Natural logorithm 

ALOG 

Arctangent 

ATAN 

Square Root 

S(2RT 


The above routines are designed to operate under the 1700 Mass 
Storage Fortran. They are written in 1700 Assembly Language for 
optimization of code and time of execution. Howevern they can 
be used by any other program working under the 1700 Operating 
System as long as the proper calling sequence is generated! and 
cells *C5 and $ES are reserved for the floating point package 
and temporary storage . 

fi.E General Description 

The argument to any of the functions is a real value number 
written in the 1700 Mass Storage Fortran floating point notation. 
The result is also a real value number in floating point notation. 

fi.B.l Temporary Storage 

These routines use the unprotected communications area from 
$Dfl to $EB as temporary storage area. 

S.2.5 Calling Sequence 

Each object time routine is entered via an RT J instruction 
to its symbolic namei followed by a cell containing the 
address of core where the value of the argument can be 
found in floatingpoint notation- 
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8.2.3 


8.3 


8.3.1 


8.3. 1. 1 


Returning Sequence 

Each object time routine will return control to the user at the 
program location immediately following the parameter address with 
the calculated value of the function in the floating point 
pseudo-accumulator. 

Function Description 

The mathematical method used to approximate the functions will be 
found in Appendix A of this document. Basically it is a trun- 
cated lay lor-Mc laur in series with Chebyshev expansion for the 
higher terms of the series. 

Trigonometric Sine (SIN) 

Range Reduction 

Let Z be the value of the argument. 

2 1 

If /Z/ > 2 then the answer will be assumed zero. 


If: 

Z<0 let U = -Z and sin (Z) = - sin (U) 

Z>0 let U = Z and sin (Z) = sin (U) 

Let I be integral part of U/Z-n and let 

Y = U - I • 2nrr , then Y ^ 2 tt , and sin (U ) = sin (Y ) 


If: 

Y > -r, let T = Y - rr then sin (Y) = - sin (T) 

Y<tt, let T = Y then sin (Y) = sin (T) 

If: 

T > Tf/2, let X = TT - T 

T< tt/ 2, let X = T 

and sin (T) = sin (X), with X^ 'ir/2 

8.3. 1.2 Series for SIN(X) with X^/n/2 

SIN(X) = CqX + CjX^ + 

with Cq == 1.0 

= T16666647 
- .83328836E-3 
=-; 19799327E-3 
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iioa 


8.3.2 


8 . 3 . 2 . 1 


8.3.3 


8 . 3 . 3 . 1 


Trigonometric Cosine (COS) 

Since COS(Z) = S1N(Z + 1 ^ 12 ) then object time routine COS will simply 
be a second entry to the SIN routine. 

Temporary Storage for SIN and COS 


Eight ceils of temporary storage are required by either SIN and 
COS. They are; 


PARADD 
RET ADD 
FLAG 
X and X 
QS 


for parameter address $DE 
for return address $D9 
for sign indicator $D8 

for temporary floating point -numbers , $DA to $DD 
for saving Q 


Hyperbolic Tangent (TANH) 


If 0 <|XU*4, 


TANH(X) 


where 


A 

A 

A 

A 


1 

2 

3 

4 


X + 


^*x**3 


+ 


A^*x**5 + A^*X**7 


+ A *X**9 
4 


-0.33333227 
0. 13337246 
-0.053388615 
0.025628253 


If k ^ |X| -CIO 

TANH(X) - 1.0 - 2.0/(EXP(2.0*X)+1.0). 
If Ixl y, 10, TANH(X) = +1.0 
If X 0, TANH(X) = 0 







< 


8. 3. 3.2 Temporary Storage for TANH 

Eight cells of temporary storage are required. 

They are: 

QS for saving Q 

J for indexing in series 1000 !>]>F 

X, XS, Tl*^ for floating point numbers, two cells each 

8.3.4 Arctangent (ATAN) 

8.3.4. 1 Range Reduction 

Let Z be value of input argument. 

If : 

Z<0, let U = - Z, and arctan(Z) = - arctan(U) 

Z_0, let U == Z, and arctan(Z) = arctan(U) 

If: 

U*. 1, let Y = U, A = 0, and B = 1 

U . 1, let Y = 1/U, A = 72, and B = -1 

If: 

Yii tan ( /r/8) let T =//7l6 
Y > tan (^/8) letT = 3 /16 
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1700 ~ 


8 . . 4 , 2 


8. 3,4.3 


H . 3 . 3 
8 . 3 . S . 1 


and arctan (U) = A 4 B (T + arctan(X)) 

,, Y - tan(T) 
where X - j + y tan (T) 

Series for arctan(X), X 4 tan(^/16) 
arctan(X) - X 4 X ^ X ^ 

with Cq = .99999900 

- :33313333 

- .19000000 

Temporary Storage for ATAN 

Eleven cells of temporary storage are required. 


They are: 


PARADD 

ARCRET 

ARCFLG 
X,X ,AF,BF 


for parameter address 

for return address $D9 

for path decision $D8 

for floating point numbers, 


$EE 

$DA to $E1 


Exponential (EXP) 


Range Reduc t ion 


Let Z be input value of 
If: 

Z 0 let Y - - Z, and 

Z y 0 let Y Z , and 

Z 0 put answer equal 

Now if X and 


argument 



to 1 and exit, 
are defined as follows: 


Let T - Y/ln2 

N “ T i \ take integral part 
W - T - N 
X - W In 2 


Therefore the maximum absolute value for 
which will generate the maximum floating 
value is greater than this maximum value 
typed out and the answer is given as the 
permissible in 1700 Fortran. 


Y is equal to 88.02968 
point number. If input 
then a message will be 
maximum floating number 
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8.3. 5.2 Series for e for X In 2/2 

Series is normal Taylor-Mclaurin series truncated at n = 7 ; i.e., 

6 


8 . 3 . 5. 3 


X X ' x" 


n=0 

Temporary Storage for EXP 

oeven cells of temporary storage are required. 


They are: 



PARADD 

for parameter address $E0 


RET EXP 

for return address 

$DA 


FLAG,N 

for indicator $DE, 

$DC 


Y 

for floating point 

number, $D8 , $D9 

8.3.6 

QS 

Natural Logarithm 

dtSof ''‘"8 ^ 


8.3.6. 1 

Range Reduction 




Let Z be input value of argument. 



If Z ^0 then the answer will be the inaximum floating point number 
possible in 1700. 


N 

Now Z = 2 Y 

and ln(Z) = (N - \) ln2 + In ( 1 

Y - «/2?2 

where X = 

Thus /X/ 3 - 2/T" 

8. 3.6. 2 Series for In ( y - ^ ) for /X/ ^3-2 

In = Cq X + X ^ X ^ 

with Cq == 2.0312500 

= 0.41666667 
= 0.90000000 
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8. 3.6. 3 Temporary Storage for ALOG 

Nine cells of temporary sEcrage are required. 

They are: 

PARADD for parameter address $E0 

LNRET for return address $D8 

N,X,X2 for floating point numbers $D9 to $J>E 

8.3.7 S,ua9i Root (3QRT) 

8.3.7. 1 Range Reduction 

Let Z be input value of argument 
If Z... 0 let Y = - Z and ✓*Z~= - /y" 


8 . 3 . 7. 2 


also type out error message. 


If Z 2 0 let Y = Z 

Now Y - 2^^ X and »'Y = 2^ /x where ^ ^ X < 1 


The Fade' approximation for a first estimate with a maximum rela- 
tive error <2.3 (E-4) is 


25 

7 


5000 

343 


L 


(X - § ) 


/y 11 ) ry + 235 . 

(X (X ■+ ) - 2401 


Iterative method 


The square root is computed via a Newton- Raphson iteration start- 
ing with a first approximation, y. above. Successive approxima- 
tions are found from: 


y;, , ' V (y^ + 


unt i I 


^i+1 ^i 


^ ) 
'i 

-23 
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Temporary Storage for SQRT 


Ten cells of temporary storage are required: 


They are: 
PARADD 
QS 

SQRET 
SQEXP 
SQFLG 
X, YO, Y1 


for parameter address ^EO 
for saving Q $E2 
for return address $DA 
for value of N $DC 
for negative input $DB 

for floating point numbers, $DD to $E0 and $D8,$D9 


Type Out Message 


Any Illegal input value will cause a predetermined value to be 
given as an answer and the program will exit normally. It is left 


to the user to 

take corrective action. 


Routine 

Argument 

Answer 

SIN or COS 

/Z/> 2^^ 

0 

EXP 

/Z/> 88.02968 


ALOG 

Z ^0 


SQRT 

Z ^ 0 

-Ml 


8.5 References: 

CONTROL DATA 6600 Computer System, Programming System/Library 
Functions . A Study of Mathematical Approximations, Pub. No. 
60114500. 

HANDBOOK OF MATHEMATICAL FUNCTIONS , National Bureau of Standards 
Applied Mathematics Series-55, Library of Congress catalog number 
64-60036. 
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a.3«a Exponentiation {«*«} Subroutine (UaEXPN 

This subroutine is called by programs which use the 
exponentiation operator* i-e- the symbol This 

routine is written in 17D0 Assembly Language* It 
has the following entry points: 

dJaCFSI floating number to integer power 

c3a(3I5F integer number to integer power 

<3ac?F2F floating number to floating power 

RETAD 
dJSAVE 

The following externa I s are declared: 

FLOT 

ALOG 

EXP 


The calls required for temporary storage are: 


FLOFLG 

FRESLT 

SIGN 

COEFF 

EXPO 

XLOGC 

HLTPR 


IRESLT 

FLOVEL 

FLACC 


for floating/fixed flag $DC 
for intermediate results {floating! 
$D1) to $DE 

for sign of exponent ^OF 
for address of coefficient $E1 
for address or val ue of exponent 
$E2 

holds Intermediate results $E1 
holds powers of coefficient $E3 
{floating point number— 2 
wordsi ^EM-L & G saved 
for intermediate results {fixed} 

$ES 

for floating point package overflow 
$C6 
$CS 
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Integer to integer 
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Process integer to integer 


t>. 
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hardware 
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Square floating 
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APPENDIX A 


1700 Mathematical Approximations 


Introduction 

This paper will derive approximations for object time 1700 Fortran 
programs which will allow fast evaluations with necessary accuracy 
and uncomplicated range reduction. 

Accuracy 

Since all approximations are to be in floating-point, it shall be 
required that 

R<2"^^ = 1.192E-07 

which is the basic round off due to the size of significant digits 
in 1700. 


General Description of Method 

The method will combine truncated Taylor-Mc laur in Power Series and 
Chebyshev Polynomials. 


Truncated Tay lor-Mclaur in Power Series 


A function will be expressed as a truncated Tay lor-Mc laur in series 
such that the error produced is less than R. i.e., 


m 


f(N) = 



n=0 


nl 


n 
X , 


/n/ ^a 


and m is chosen such that 


R< 


f(in+l) 

(nrt-1)! 



Chebyshev Expansions 

Denote by Tn(x) = cos(nt) the Chebyshev polynomial of degree n in 
X = cos t. Note that /x/^l and that /Tn(x)/^ 1. Writing 
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the coefficients are computed from 
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/(n+i)/2'\ /(n+i-2)/2^ 

\(n-i)/2y y(n-i)/2 
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if ( i + n ) is even . 
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Table of is given at end of papers 
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Use of Chebyshev Expansion 
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then term involving Tni(x) can also be neglected and series now 
becomes 


m- 1 


f(x) 
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This process can then be repeated as long as the total error does 
not exceed R. 
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SIN (X) for X«,'. ■jr/2 

The Taylor-Mc laurin series truncated at n = 6 is 
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SIN (X) =) X 


n=0 


with Relative Error at x =-»“/2 ^ 




,13 


13! 


5.692E-8 


Let X = (tt/ 2) y,with y^l 
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SIN<X) = 


(2n+l )I 


7 y 0^/2)""^ - W2) 


2n+l 


11 11 


„ 11 _ T,,. V 2n+l „ , , 

Now y = ll(v) 11 y n=0 , 1 , . . . , 4 

olO " ^10 

2 2 

Error occasioned in omitting T(y) term is 


Rc<fr/2) 


11 


lUv) 


11 ! 2 


10 


3.511E-9 


Total error so far is 6.043E-8 and series becomes 
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# I i III . .. 

n=« ~ 11! 2^° 
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Error caused in omitting Tq. v 
neglected. ^ 


is 6.6E-7 and therefore cannot be 
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Thus using (3} and y =(2/tr)X we get 


SIN(X) 
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t-1)^ ^ ^11 


n=0 


i2n+l)! ■ ^lO 


-(7T/2) 


10-2n^ 2n+l 


nerefore: SIN(X) =- ^ X 
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! efine B - ('^/4) then 
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4.0 TANH(X) for x<ir/8 


Taylor-Mclaurin series for TANH(X) is 


TANH(X) = 


\ 






n=l 


where (0) is the Bernoul li-Euler number B (X) evaluated at 
2n 2n 


X = 0. 


%<«> = 

2" 2" 


N=1 


COsZN-r^X 


N 


2n 


B, (0) 


(-1)"~^2 (2n)I ^ 


'2n"" X 2n "2n 


where R 


2n 


(2^) 


is the Riemann-Zeta function. 
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2n 

^2n 
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1.64493407 
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1.08232323 
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1.01734306 

8 

1.00407736 

10 

1.00099458 

12 

1.00024609 

14 

1.00006125 


so that series can be written as: 

TANH(XlY~" . R X ^ 

l_ . .;^2n 2n 

n=l 
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Let X and truncate series at n = 7 

6 


\ ' 2( 2^^- 1 ^ 

TANH(X) - / y 


/ ■ ^n-3 


2n-l 


n=l 


i 14 

With errors^ 2 1 R 

' ( 2) 


lA 


1.897E-8 


!'ANH(X) ^ ) 


n- 1 


2(2^"- 1) „ 
■7^-'^2n- y 


2n-l ^ (2^^-l) 




( 2 ) 


32 


The Chebyshev expansion for y is 
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and error 
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in omitting T (y) term is 
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and total error so far 1.927E-8 and series is 
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T.AN(X) = 


n--l 


^(2^^1) , . (2^^ .1) , . 

^bn-A 2n ^ U2 12 . 


2n-l 


Even though similar expansion for y only gives a total error 
3.84E-8 the value of 


tan(y ) 


( vT2 +1) -f tan(x) 


1 - ( /“2“h 1) tan (x) 
becomes very critical as y-^'Tr/2 and tan(x)-^ - 1. 


I 2 


,/f 


Therefore series will not be reduced any further. 
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[ 6 R 2 + E' 2 ‘^^] 

= 1.0000001 

:[30R^ -5E*2‘^^] 

= '.33333227 

[l26R^+7E.2'®] 

= .13337246 


[siORg - 4 e] = .053388615 
= D^.[2046Rjq+E.2®]= .025628253 


2n-l 
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Arctan(X) for XCtan ('n^/16) 
Tay lor-Mc laur in series is 

arctan(X) » ^ (-l)^X 


n-O 


2n+l 


ince X- tan (rr fl6) <.2 then error caused by replacing X - . 2y 
3 greacer than true error. True value of tan ('tt'/16) = . 19891237, 


'"hen arct^n(X) 


n ~=0 


(2n+l)( 10) 


2n+l 


• y 


2n+l 


truncation at n = 4 causes error 
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Using y 


9 10 

T.(y) 
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arctan(X) =} 
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(7) 10' 


“ 1.857E-8 if Ty term is omitted. 
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17x10 

total error so far is<7.545E-8 and series becomes 
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Aq = 1 - 10"^ = .99999900 

= - 1/3 + 2'(10"‘^) = - .33313333 
A^ = 1/5 - 10 . 


19000000 



CONTROL DATA CORPORATION • DEVELOPMENT DIV • SOFTWARE DOCUMENT 

document CLASS.^ PAGE NO. 

PRODUCT name Storage FORTRAN. 

PRODUCT NO ^005 VFR5;iON 5 • □ MACHINE RFRIP?; 1 700 


6.0 


Exponent ia 1 , 


X 


e 


for X 


In 2 
2 


Tay lor-Mc laur in series is 
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. 1/7! = 1. 1916Ew7 


Therefore series is normal series truncated after n = 6, i.e., 
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Now X and N can always be found such that e-' = 2 e where 
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error. Therefore final series is after substitution of Y — X/a 
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T.O FLOATING POINT PACKAGE 


7.1 General Descript ion 


Each floating point number requires two consecutive 1700 
Computer words. The first wordi containing the most significant 


bits of the numbern is the one addressed, 
point format is as follows^ 


Normalized floating 


fiTsEo i 
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tiJORDl 
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WORD 2 


,.L 


i “L Kponent--''^ 

j labitsl 

‘-Sign of number 


-Normal i 

-C23 


Is 

0 

ed Coefficient- 




bits> 


c f ioating point number X is in the range given below and is 
significant to one part in flXlQL. 

-2^27{Q^_2l/233.^ X4s^27^^_gl/23j 


If the most significant word is zero -Qti bits of zero or one>i 
a floating point zero is assumed. 

7.1.1 Exponent 

The floating point exponent is an S-bit quantity with a 

v'alue ranging from 00 to Through biasing by 

this range expresses both positive and negative exponents. 

7.1.2 Coefficient 

The coefficient consists of a 23 bit number ni 1-2”^^^ |n| 
^ 0. The high order bit position of the first word is 
the coefficient sign bit. 

A zero denotes a positive coefficient and a one denotes a 
negative coefficient. When the coefficient is negative! 
the entire floating point number is stored in complement 
form. 

7.1.3 Calling Sequence 

PLOT uses an interpretive calling sequence. It does not 
save (2 or FF i it uses the communications locations $C5 
and 7Cb as a pseudo accumulator. The pseudo accumulator 
^ retained between calls to PLOT. 

The interpretat ion of the calling sequence is based on a 
string of 7-bit bytes representing the operations t fol lowed 
by the operand addresses. The leftmost 7-bit byte is the 
first operation! the operand addresses! if they exist! 
follow in the same order as the operation bytesn one word 
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per byte. As many bytes may exist as desiredi but the 
terminating byte must be the operation FEND. 


Example '• 



The Oi'*s are the operation codes=i the A.j-'s are their 
operand addresses. An operand address is not needed by 
all operations! for instance! operation code O 3 does not 
have a corresponding A 3 . 

T.l.M Operations 


The following operations are used by the floating point 
package. 

4-bit 

Operation Code Meaning 
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S Change of mode operation. AH operand 

addresses following this operation 
code in the calling sequence are made 
relative if the preceding addresses 
were absolute! or absolute if the 
preceding addresses were relative. 
Addresses are initially absolute. 

No operand is needed. 

*^lti Index. The operand corresponding to 

INDX is used to increment the operand 
of the following operations^ FLDD! 
FLST! FADD! FSUB! FMPY! and FDIV. 
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NIOX 

FLDD 

FLST 

FCOM 

FADD 

FSUB 

FHPY 

FDIV 

FEND 




Bib 


'lb 


7 


Elb 


a 




Alb 


4 

■Calso li 
B-.3> 


Each succeeding INDX supersedes the 
last. No index is initially assumed. 

No index. The succeeding operands do 
not have indexing increments. NIDX 
supersedes any preceding INDX and is 
superseded by any following INDX. 

NIDX is assumed initially. No operand 
is needed. 

Floating load. The floating point 
number in the corresponding effective 
operand address is transferred to the 
pseudo accumulator. 

Floating store. The floating point 
number is transferred from the pseudo 
accumulator to the corresponding effective 
operand address. 

Floating complement. The pseudo 
accumulator is complemented. No 
operand is needed. 

Floating add. The contents of the 
effective operand address is added 
to the pseudo accumulator! and the 
sum is left in the pseudo accumulator. 

Floating subtract. The contents of 
the effective operand address is 
subtracted from the pseudo accumulator^ 
and the result is left in the pseudo 
accumulator. 

Floating multiply. The pseudo accum- 
ulator is multiplied by the contents 
of the effective operand address i and 
the result is left in the pseudo 
accumulator . 

Floating divide. The pseudo accumulator 
is divided by the contents of the e 
effective operand address t and the 
result is left in the pseudo accumulator. 

End of calling sequence. This operation 
terminates the calling sequence. No 
operand needed. 
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All operand addressesi absolute or relative-i are placed 
in bits m-0. Bit IS is a flag set to distinguish 
between direct and indirect addresses. 


1 . 5.1 Absolute Addressing 

An absolute address may be either direct or 
indirect. All indirect addressing is executed 
prior to indexing. Only one level of indirect 
addressing is allowed. 

1.1. S.E Relative Addressing 

A relative address may be indirect to one level 
of indirectness. The relative address is computed 
by subtracting the location of the address in the 
calling sequence from the address contained in 
that location. For instance! if the relative 
address! A-j^! is contained in location L+3! where 
L is the first word of the calling sequence! the 
relative address = Ai - L + 3. 

1.1. 5. 3 Example 

Compute the floating point arithmetic statement: 

X=-{A-CI}+B-CI»hC-CI>+]){J}»«E{J> 

Assuming that X! J! D ! E! and the temporary location 
TEMP are absolutely addressed! and the other 
operands relatively addressed! the generated calling 
sequence would be: 


RTJ 



PLOT 



f^lb 




1 

t> 

absolute address J 

absolute address D 

absolute add 



ress E 


s 

mm 


absolute address TEUP 

relative address I 
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relative address A 


1 

7 

b 

relative address B 

relai 

tive address C 



S 

E9 

I>lb 

,n[m 

absolute address TE 

— 

MP 

absolute address X 


T.l.b Fault Conditions 

Fault conditions are flagged in a communication 
location -C^Ca> whenever they occur during execution. 
The following bits are set to one: 

BIT Fault Condition 

IS Exponent overflow^ the exponent in an 

arithmetic operation exceeds the 
maximum range limit. 

m Divide faulti division by zero is 

encountered • 

13 Exponent underflowi the exponent in 

an arithmetic operation is less than 
the minimum range limit. 

If exponent underflow occursn a floating point 
zero results. If exponent overflow occursi the 
largest word of the appropriate sign results. A 
divide fault is treated as overflow. These error 
conditions may be tested with the IFALT function. 

T.2 FLOATING-POINT ARITHMETIC WITH 53-BIT NUMBERS 


•i.5.1 Introduction 


Consider the double precision 



floating-point number: 
Cl> 


where |f| lies in the range 
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1/2^ If 1^ 1 - 2“23. {0} 

lile have a machine with a u|ord length of lb bits and that 
the 32 bits in the double length word are divided in the 
following way! 


^ bits 


J 


7 most significant bits of f 


binary point 


lb least significant bits of f 


The leftmost block of nine bits is divided into three parts! 

1. The first -Cleftmostl bit represents the sign of F. 

2* The second bit represents the sign of/» . 

3. The next 7 bits represent the magnitude of>Q. 

This allows 23 bits for the representation of f. We 
shall assume that the binary point lies at the left 
and of the 23 bits representing f so that the 7 most 
significant bits of f are stored in the first word of 
the pairi and the lb least significant bits of f are 
stored in the second word of the pair. 

If we write 

|f/ = c + d.2"^ C3> 


r 1 In-; In t hp ranqp 


L/,‘ 




- 1 


tm 


and where d lies in the range 
1/2 5 d £ 1 


{5> 


then c represents the 7 most significant bits of f and d 
represents the lb least significant bits of f. 


We wish to condiser the four basic arithmetic operations 
using floating point numbers of the form discussed • 
Consequently! in order to have notation for two operands! 
let us consider a second floating point 

number- 



■Cb> 


where |g| lies in the range 
1/2 i lg| - 1 - 2"23 


■C7> 
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If we write 

lgl = a + b.B“^ 


{fl> 


where a lies in the range 

1/E - a£ 1 n} 

where b lies in the range 

i/5£b-i -ao> 

then a represents the 7 most significant bits of |g| and 
b represents the lb least significant bits of |g|. 

The machine represents negative numbers using a '^one-'s- 
complement'^ system. In fact the procedure for changing 
the sign of a floating point number is to perform a bit- 
by-bit complement of the entire 3B bits {including the 
1 bits representing the sign and exponent!. 

1.5.2 THE FOUR ARITHHETIC OPERATIONS 


A. Multiplication 

F-G = {f.E'^l {g.E^l 
= {sign of F.G! |f| 


|g| 


The computational procedure is orynarily concerned with 
the formation of |f | . |g| . 2^‘‘"® since {sign F.G! can 

be recorded in ^_jdvance and used later to apply the correct 
sign to the product. In addition to recording {sign F.G! 
we record the exponentsy^ and,^ until after the product 
|f| . lgl is formed. In fact-i we propose the following 

algorithm for multiplying F by G. 

1. Determine and record {sign F.G> 

2 . Form | F | and | G | . 

3. Record the leftmost Xine bits of |f| and |g|. Thisi 
in effect 1 records/^ and . 

Shift the 23 bits of lf| and |g| left until each has 
the bit pattern! 



jO, 


+ I 15 most significant bits 


1 0 I fl least significant bits i 7 zeros 


A A %rTf 


If this procedure is followed-. |f| is no longer 
represented by {3> during the computation is step 
5i below-, but has the form 
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|fl = C + D.E-IS {10} 

where C lies in the range 

1/a- C - 1 -5-IS {13} 

where D lies in the range 

0 ' 1 -0- ® {m} 

likewise lg| has the form 

|g| = A + B.a“lS {15} 

and where A lies in the range 

1/a ^ A ^1 -2-lS {lb> 

and where B lies in the range 

□ f-B f-1 -a~fi {!?> 


S. Use fixed point operations in forming the product 

if| . Igl = -CC+D.a-lS} {A+B.a"15} - 

= CA +fCB + DA}.a-lS + DB.a-30 

* CA +CCB + DAl.a"^^ C16> 

Notice that the term DB.a~30 may be ignored 
because once the product is placed back in 
standard form only a3 bits are retained. Notic^i 
also-i that -Cia> is written in such a way that 
it exhibits the efficiency of the following 
choice of computational steps: 

a. Form CA giving a double length product. 

b. Form CB and retain the most significant half 
of the double length product. 

c. Form DA. 

d. Add the most significant half of DA to the 
most significant half of CB. 

e. Add the least significant half of CA to the 
sum obtained in Cdl. This result is the 
second half of the double length product. 

The first half of the double length product 
is the most significant half of CA which was 
formed above in a. 

ti. Nexti round and norma^lize the product obtained 
using -Clfll in Step S. Any adjustment in the 
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exponent/^ +-^ which is necessary because of the 
normal ization of |f| . |g| must be performed. 


7. finally! pack the E3 bits of the normalized 

product and the 1 bits representing the sign and 
the adjusted exponent into two lb bit words- If 
{sign F.G> is negative! the two words must then 
be complemented to give the correct sign to the 
product. 


B. Division 


F f.5^ 




={sign of G-F |^j*2 
as a matter of fact! since we want 

we scale the numerator and write 

r L2J 

£ = {sign G.F>| |j. .S 


{n> 


{30> 


{31> 


Thus we propose the following algorithm for dividing 
G by F- 



/f ’C 

''iy 


1. Determine the record {sign F.G> 

3. Form |f 1 and |g|. ' 

3. Record the leftmost nine bits of |f| and |g|. 

this! in effect! records andv^ . 

M. Arrange the S3 bits of |f| to give the bit pattern: 


I 15 most significant bits of Tfl 1 C 


I o"| a least significant bits i 7 zeros | D 
and the S3 bits of |g| to give the bit pattern: 


( 1 0 f m most significant bits of igl| A 


( 0 1 *1 least signif icant bits [ b zeros 1 B 

Thus! |fl is represented by {1S>! {13>! and {m> 
as in the case of multiplication. However! in 
this case we have: 
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ja.| = A + C22> 

where A lies in the range 

l/^£ A -1/2 - 2"^S {23} 


and where B lies in the range 
Oi B ^ 1 


C2M> 


S. Use fixed point operations in forming the quotient 



A + B.2“^S 
rTTTpTTS- 



d 5 -30 . . . 

2-30 .2-30.,... 



Notice that the terms beginning with 


AD2 

- BD 

.2-30 

C3 

C2 



may be ignored because only 23 bits of the quotient 
are retained. NoticeT also-, that -C2S> is written in 
such a way that it exhibits the efficiency of the 
following choice of computational steps! 

a. Form -AD giving a double length product. 

b. Divide -AD -Cas a double length dividentl by C. 

c. Form B - ^ -Crounded to single length!. 

C 
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d. Form the double length dividend 



■CThe sign of the second term makes this tricky.! 

e. Divide this double length dividend by C. 

f. To obtain the second half of the double length 
quotient! the remainder resulting from the 
division in the provious step must not be divided 
by C . 

The class of machines for which this procedure is 
efficient must have the feature that fixed point 
multiplication leaves a double length product which 
can be used as a double length divident for fixed 
point division. 


C. 


t>. Next! round and normalize the quotient obtained using 
■C25} and the procedure of step S- Any adjustment 
in the exponent which is necessary because of the 

2 [|must be performed. 

2 
f 


normal ization of 


7. Finally! pack the 23 bits of the normalized quotient 
and the *1 bits representing the sign and the adjusted 
exponent into two lb bit words. If {sign F.Gl iu 
negative! the two words must then be complemented to 
give the correct sign to the quotient. 


Addition 


F + G 




{2b! 


The basic problem in floating point addition is to adjust 
the exponent of F for G! so that the binary points are 
lined up before the addition takes place. 


Let us introduce the notation L to represent a pair of 
cells containing the larger of the two numbers F and Gn 
and the notation H to represent a pair of cells con- 
taining the smaller of the two numbers. Ue shall say 
that F is larger than G if 

{27} 



and F is smaller than G if 
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Ue are not concerned about the relative magnitudes of 
f and g in case the exponents are equal. Using this 
convention! we propose the following algorithm for 
forming F + G. 

1. Record the leftm(^t nine bits of F and G. This! in 
effect! records and .5’ . 

3. Determine the sign of -Sy and thus determine whether 
F is smaller or larger than G according to -CSTlafEfl}. 

3. Place f and g in L and f1 . If F is larger than G-, then 
f goes to Li otherwise f goes into M and g goes into 
L. The following bit patterns should be formed 
{here s means ''sign bit”!: 


M. 


I + Is 1 s 1 13 most significant bits 


■binary point ^ L 

I -I- 1 ID least significant bits j 5 sign bits | 


I s I s i s [ 13 most significant bits 
inary point 


E 13 m( 

— bir 

f 10 least significant bit^ 


I L sign bits 


Shift f1 right I/-J I places and put a ''+'^bit at the 
beginning of each of the two words. If \/0 23 

then there is no need to continue since all signifi- 
cant bits in n will be lost. 


F~R- 




-.5^ I ''filler'' bits 


binary point 


cu 



Notice that the \/S-^ I ''filler'' bits! between the 
binary point in f1 and the most significant bit of 
the fraction! are sign bits. This is mathematically 
correct in a one-'s complement representat ion of 
negative numbers. 


5. Add the second halves of L and f1. 


1^— — 

Ue call the first bit of this sum c. If it is a one 
we actually have a carry. If it is a zero we do not 
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have a carry. However-i it usually is easier to add 
c -Csee step ti> than to test to see whether or not 
it needs to be added as a carry bit in forming the 
sum of the first halves of L and M . 


b. Add the first halves of L and h and add the carry 
bit obtained from step 5. 


ij.. rsTvj—zz~r:~s .. "z zzizi 

If e = 1 then an end-around-carry must be performed. 
This means that a one is added at the right end of 
the word produced in step S. Since this might also 
produce a carry biti the c in the diagram Isee step 
S> must be cleared to zero before the end-around-carry . 
If a carry bit is again producedi then a one must be 
added at the right end of the word above. It can be 
shown that this last operation can never produce 
another e = 1 . 

If V = s^then v is a sign bit. Howeveri if v / s 
then there has been overflow during the addition and 
and V is the most significant bit of the sum. In 
the latter case an adjustment of the exponent will 
be necessary to give the correct answer. 

7. Shift of second half of the sum left one place to 
clear out the carry bit c. Then shift the double 
length sum left Ia> one place if v si -Cb> two 
places if v = s. 

This leaves the sum in the following form: 

1 s I 15 most significant bits of sum f 

) at least a bits of the sum |siqn bits | 

ft. If the double length sum was shifted one place left 
in step 7 Iv 5^ s> then the exponent must be adjusted 
to take care of the overflow. This means adding one 
to the exponent/5 or^ ^ whichever is larger. {This 
will be the exponent of the sum-> If the double 
length sum was shifted two places left in step 7i 
no adjustment of exponent is necessary. 

1. The form of the sum given by step ft must be checked 
for normalization since it is possible that several 
of the leading bits of the sum may be zero. -CCancell- 
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ation occurs when two numbers of opposite sign but 
nearly equal magnitude are added.} If the sum is not 
normalized then it should be normalized at this point 
and appropriate adjustments in the exponent should 
be made. If 23 left shifts are not sufficient for 
normalization then the sum should be made zero. 

10. At this point the normalized sum may be rounded 
although the extra coding involved may not be worth 
the gain. If rounding is desired then there are two 
cases to be considered depending on the sign of the 
sum. These cases require that care be taken in 
handling any carry bit produced by the rounding 
operation . 

11. Now pack the 23 most significant bits of the sum-i 
along with 1 bits representing the sign and exponent! 
into two lb bit words. If the sign of the sum is 
negative! then the first 1 bits must be complemented 
before the packing takes place. 

D. Subtraction 

No special subroutine is necessary since 
F - G = F + {-G} 

and one merely complements G before entering the addition 

subroutine . 


REFERENCES; 

Gregory! Robert T. and Ranev! James L. ; Floating Point Arithmetic 
With SM-bit Numbers! Communications of the ACfl! Volume 1/ Number 1/ 
January lim. 


*1.3 Low Core Storage Location 

FLOAT uses the low core location *CS through ^*D7'-. they are assigned 
as follows 5 
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Location 

Name 

Loca- 

tion 

Use 

SIGN 

$C7 

Sign register-sign of floating point 
number. 

ERRORS 

^ca 

Error bits to indicate exponent overflowi 
divide fault-, exponent underf low-which are 
used by IFALT to check for these floating 
point errors. 

SHIf^CT 

^D1 

Shift counter. 

P 

$D5 

Pseudo program counter which is used by 
FLOAT to know w here it is in the user'‘s 
program when it wants to pick up more 
parameters or return. 

INDEX 

$D3 

Effective address of parameter 

RELADR 

$DM 

Absolute/relative indication 
r=l relative address 
RELADR =□ absolute address 

OPCNT 

$DS 

Op counter - keeps track of which op code 
is being processed. 

OPCODE 

$Db 

Op code holder - holds op codes in the call* 

C3S 

$D7 

Saves (2 register upon entry into FLOAT . 

G 

G+1 

$cs 

Pseudo accumulator - the two words of the 
floating point number are placed here. 

The pseudo accumulator is broken up into 
C-. D and DELTA. 

C 

«CD 

dost significant bits of the coefficient 
of the floating point number. 

D 

$CE 

Least significant bits of coefficient or 
floating point number. 
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OPERATION CODE = b 
NO INDEX INIDX} 
OPERATION CODE = F 
INDEX IINDX} 
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OPERATION CODE = B 
FLOATING LOAD -CFLDD} 



STORE 1ST UOiRD 
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UNPACK 

OPERAND INTO 
C-.D. AND DELTA 

floating 

POIN" NUMBER 
IS ASSUMED TO 
BE ZERO SINCE 
FIRST WORD IS 
ZERO 
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GET EFFECTIVE ADDRESS OF NEXT OPERAND 

1. ADDRESS IS DIRECT 
IF INDIRECT BIT 
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5. RETURN UITH 

EFFECTIVE ADDRESS 
OF OPERAND-1 IN 
(^REGISTER. 
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OPERATION CODE = ^ 
FLOATING MULTIPLY IFMPY} 


GETS THE FLOATING 
POINT NUMBER AND 
STORES IN F AND F+i: 
THEN UNPACKS THE 
NUMBER INTO 
A*D, ISMSB 
B=Q,aLSB, 7 ZEROS 
BETA=EXPONENT 

A TO 

CAUSES 

A JUMP TO ARGO. 
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nULTIPLY THE USB 
OF ONE NUMBER BY 
THE MSB OF THE 
OTHER NUMBER 


/IS \ 
END NUril 
V ZERO . 


JMPOUT 


NOZERO 


MULTIPLY 
C BY A 
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^ . - .. 

STORE 
IN F+] 
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IN G 
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C BY B 
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M. UPON ENTRY THE A AND Q 
REGISTERS ARE: 


A = {A«D{nSB}}+-CC«B{nSB}> 
fl = C*«AI(1SB> 


IN THIS SECTION OF 
CODE. IF A IS NEGATIVE.. 
CARRY INTO Gj IF Q IS 
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THIS CHECK IS MADE 
BY EXAMINING THE 
DIFFERENCE OF THE 
EXPONENTS OF THE 
TWO NUMBERS. 
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10-0 Object Time Intrinsic Functions 
10.1 General Description 

The following Object Time Intrinsic Functions are included in 
this chapter: 


Intrinsic Functions 

I/O Routine 

ABSIXJ 

oaAB 

SIGNIX! YI 

SIGN 

IFIX-CX} 

FXFL 

FLOATII} 

FXFL 


10.2 (3fiAD Routine 

This routine^ which is written in 1700 Assembly Language! 
computer the absolute value of a floating point number and 
leaves the result in the pseudo accumu 1 at i on • 

The calling sequence is: 

RTJ ABS 

1. address of argument 
The entry points are: 


OflAB 

ABS Iwhich is equated to i3aAB> 

The external declared is: 

FLOT 

The low core locations used by this routine are: 

ABSPRn $EM1 for the parameter of the absolute 

value function 

FLACC $Cb} pseudo accumulator 

10-3 SIGN Routine 

This routine-i which is written in 1700 Assembly Language! 
computer the sign of the second argument times theabsolute 
value of the first argument and leaves the result in the pseudo 
accumulator- 


A A 3 7 T7 


Ptt(NTB} tN USA. 




The calling sequence is: 

RTJ SIGN 

1. address of first argument 

2. address of second argument 

The entry points are: 

C?fiSG 

SIGN {which is equated to flfiSGI 
The declared external is: 

PLOT 

The low core locations used by this routine are : 

A1 {$Dfl} 

A2 {$])R1- 

FF {$E1> used to save I register 
(2S {$E2> used to save Q register 



FXFL Routine 

This rout inen which is written in 1700 Assembly Language^ 
per f orms the conversion of a floating point number into 
an integer {Intrinsic Function IFIX3- and of an integer 
into a floating point number {Intrinsic Function FLOATIi 
it is also called by programs which have conversion 
cross equal signs . 

The entry points declared by this routine are : 

a&dFIX 

(26FX 

(JflflFLT 

(36FL0T 

FLOAT {which is equated to <36FL0T> 

IFIX {which is equated to (2flFX> 

DFIX {which is equated to IFIX> 

The declared external is : 

FLOT 
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Ths low core locations used by this routine are: 

CELLS {$Da> 

CELLl {$I>A> 

(3S {$E5} used to save register 

The calling sequences for FXFL for the Intrinsic Functions 
are: 

for IFIXIX'I: 

RTJ IFIX 

1. address of argument 

The resultant integer is in the A register upon return to 
the user program. 

for FLOAT-tl}: 

RTJ FLOAT ' 

1. address of argument 

The calling sequence for the conversion across the equal sign 
of a floating point number into an integer is: 

RTJ £2a<2FIX 

In this case the argument is in the pseudo accumulator upon 
entry and the resultant integer is in the A register upon 
exit. 

The calling sequence for the conversion across the equal sign 
of an integer into a floating point number is: 

RTJ flacJFLT 

In this case the argument is in the A register upon entry. 
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11.0 DOUBLE PRECISION OBJECT TIME ARITHMETIC ROUTINES 


11»1 Introduction 

This chapter deals with the following object time 
routines: 


External Function 

Symbolic Name 

Trigonometric sine 

DSIN 

Tr igonometric cosine 

DCOS 

Exponential 

DEXP 

Natural logarithm 

DL06 

Arctangent 

DATAN 

Square Root 

DSdlRT 


The above routines are designed to operate under the 
1700 Mass Storage FORTRAN • They are written in 1700 
Assembly Language for optimization of code and time of 
execution • Howevem they can be used by any other 
program working under the 1700 Operating System as long 
as the proper calling sequence is generated-* and cells 
$CS and $ES are reserved for the floating point package 
and temporary storage . 


11.2 General Description 

The argument to any of the functions is a real value 
number written in the 1700 Mass Storage FORTRAN floating 
point notation • The result is also a real value number 
in floating point notation . 


11.2.1 Temporary Storage 

These routines use the unprotected communications area 
from ^C'J to $E3 as temporary storage area . 


11.2.2 Calling Sequence 

Each object time routine is entered via an RTJ instruc- 
tion to its symbol ic name-* followed by a cell containing 
the address of core where the value of the argument can 
be found in floating point notation • 
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11*2. 3 Returning Sequence 

Each object time routine will return control to the 
user at the program location immediately following the 
parameter address with the calculated value of tha 
function in the floating point pseudo-accumulator • 


11.3 Function Description 

The mathematical method used to approximate the functions 
will be found in Appendix A of this document . Basically 
it is a truncated Taylor-flclaurin series . 


11.3.1 Trigonometric Sine {DSIN> 


11.3.1.1 Range Reduction 

Let Z be the value of the argument . 

21 

If /Z/> 2 then the answer will be assumed zero . 

If: Z<0 let U = -Z and sin -CZ> = - sin CUI 

Z> □ let U = Z and sin -CZ> = sin lU} 

Let I be integral part of U/2 and let 

Y = U - I • 27Ti then and sin lUJ = sin IY> 

If: Y>7Ti let T = Y - 7 t then sin m = - sin -CT> 

Y<7t-i let T = Y then sin IY> = sin -CTl 

If: T>7T/2n let X = tt- T 

T< TT/2-, let X = T 

and sin ITl = sin IXli with X ^ tt/2 


11.3.1.2 Series for SINCXI with X^tt/2 

Series is a normal truncated T aylor-Nclaur in series' 


SIN-CXl = 


^ {-l}" X 

n^Q <2n+l>! 
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11-3.2 Trigonometric Cosine CDC0S> 

Sine COS-CZl = SIN-CZ + rr/zy then object time routine DCOS 
will simply be a second entry to the DSIN routine. 


11.3.2.1 Temporary Storage for DSIN and DCOS 

Nine cells of temporary storage are required by either 
DSIN or DCOS. They are: 


RETADD 

FLAG 

X and X 2 

as 


for return address ^D*! 

for sign indicator $Dfl 

for temporary floating point numbers-i 

$DA to $DF 

for saving a $E2 


11 . 3.3 Arctangent CDATANl 


11 . 3 . 3.1 Range Reduction 


Let Z be value of input argument . 


If: 

Z<0i 

let 

u 

= - Zn 

and 

arctanIZI = - 

arctanlUl 


Z> D-. 

let 

u 

= Zi 

and 

arctan-CZI = 

arctanlUI 

If: 

U<1-. 

let 

Y 

= Un A 

= On 

and B = 1 



U>ln 

let 

Y 

= I/U 1 

A = 

/2n and B = 

-1 


If: Y< tan {7r/a> 

Y> tan -CTT/fl} 


let T = tt/IL 
let T = 37T/lb 


and arctan -CUJ = A + B -CT + 
Y - tan-CT> 


where X = 


1 + Y tan IT> 


arctan-CX» 


11 . 3 . 3.2 Series for arctanlXli X< tan-CTr/lbl 

Series is a normal truncated Taylor-Mclaurin series : 


Arctan-CXJ = 


n=D 


{-l>n X 

2n+l 
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11 . 3 . 3.3 Temporary Storage for OATAN 

Twelve cells of temporary storage are required. 


They are: 

ARCRET 

ARCFLG 

XnX2iAF-,BF 

(3S 


11. 3 . M Exponential -CDEXPl 


for return address 
for path decision 

for floating point numbers-j $I>A to 
$E2 

for saving (2 $E3 


11.3.'4.1 Range Reduction 

Let Z be input value of argument 

If: Z<D let Y = - Z-. and e^ = 1/e^ 

Z>D let Y = Z-. and e^ = e^ 

Z = 0 put answer equal to 1 and exit . 

Now e^ = 2^e^ if X and N are defined as follows : 

Let T = Y/ln2 

N = T + 1/2 take integral part 
111 = T - N 
X = M In 2 

Theref ore the maximum absolute value for Y is equal to 
flfl.D2Tbfl which will generate the maximum floating point 
number . If input value is greater than this maximum 
value-i then a message will be typed out and the answer 
is given as the maximum floating number permissible in 
170D FORTRAN. 


11.3.M.2 Series for e^ for X< In 2/2 

Series is normal truncated Taylor-Mclaurin series: 
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11.3.M.3 Temporary Storage for DEXP 

Seven cells of temporary storage are required. They are: 

RETEXP for return address $]>B 

FLAGiN for indicator $DCt DD 

Y for floating point number $DT-i $DA 

flS for saving Q $E1 


11. 3. S Natural Logarithm -CDLOGl 


11.3.S.1 Range Reduction 

Let Z be input value of argument. 


If Z;^0 then the answer will be the maximum floating 
point number possible in 17DD . 

Now Z = 2*^ Y 

and Inm = -CN - l/2> ln2 + In — > 

1-X 


where X = 


Y - V272 

Y + 


Thus /X/<3 - 2^/Y 




Series for In for /X/<3 - Z]fT 

1-X ” 

Series is a normal truncated Taylor-Hclaurin series: 


In 


1 - X 



j^2n+l 

2n+l 


11.3.5.3 Temporary Storage for DL06 

Eleven cells of temporary storage are required . They 
are: 

LNRET for return address ♦Dfl 

NiXiX2 for floating point numbers to ♦El 

(2S for saving Q $E3 
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11. 3. b Square Root {DSi2RT> 

11.3. b.l Range Reduction 

Let Z be input value of argument. 

If Z<0 let Y = - Z andV^ = ” 
also type out error message. 

If Z>D let Y = Z 

Now Y = 2^*^ X and = 2^^ where 1/M<X<1 
The Fade approximation for a first estimate is: 


- 

soaq 

3M3 


■cx + — > 

... - ... .... 

7 

■cx + 

1S3. 

■cx ■•■ -^} - 

400 


2401_ 


11.3.b.2 Iterative Method 


The square root is computed via a Newton-Raphson iteration 
starting with a first approximati on-i y . above . Successive 
approximati o ns' are f ou n d ' f r om : 


i+1 


= 1/2 -Cy. + 


until 


^i-fl = ^i 


< 2 


•3fi 


11.3.b.3 Temporary Storage for DSflRT 

Twelve cells of temporary storage are required . They 
are: 


(2SAVE 

for 

saving H 

$E2 


SiJRRET 

for 

return address 


SUREXP 

for 

value of 

N $CA 


ARGi YI 1 

f or 

floating 

point 

numbers 

TEMP-, 

SflRFLG 


to ^E1 
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11 • 4 Type Out Message 

Any illegal input value will cause a predetermined value 
to be given as an answer and the program will exit 
normally. It is left to the user to take corrective 
action. 


Routine 

Argument 

Answer 

DSIN or DCOS 

/Z/> 2^^ 

□ 

DEXP 

/z/> aa.DZ'ibfi 

OO 

DLOG 

Z<Q 

oo 

DSflRT 

Z<D 

- ^J/Z/ 


ll'S References 

CONTROL OATA bLDD Computer Systems-! Programming System/ 
Library Functions-! A Study of riathematical Approximations-! 
Pub. No. bDlliHSClO. 

HANDBOOK OF IIATHEilATICAL FUNCT^NS -! National Bureau of 
Standards Applied Hathematics Series-SSi Library of 
Congress catalog number m-bOD3b. 


11. b 


DEXPN Subroutine - Double Precision Exponentiation 

This subroutine is called by the FORTRAN compiler for 
programs that use the exponentiation operator-! i.e.-i 
the symbol **<! in performing double precision exponen- 
tiation. This subroutine is written in 1700 Assembly 
Language. It contains the following entry points: 

(26<3D2I Double precision floating number to 
integer power 


t3fii3D2F Double precision floating number to 

single precision floating power 

(J6I2D2D Double precision floating number to 

double precision floating power 
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The following externals are declared: 

DFLOT 

DL06 

DEXP 

The cells required for temporary storage are: 


DFLOFG 

$ES 

Floating/Fixed Flag 

DFRSLT 

$]>B 

Intermediate OP Results $0 Bt$0Ct$00 

SIGN 

$E1 

Sign of Exponent 

COEFF 

$E2 

Address of Coefficient 

EXPO 

$07 

Address of Exponent 

riLTPR 

$DE 

Powers of Coefficient 

{double precision floating point 

number - 3 words} 

DFLOVF 

$C6 

Floating Point Package Overflow Flag 

DFLACC 

$CS 

Oouble Precision Floating Point 
Pseudo Accumulation {$CS-i$Ctn$C7> 

CZERO 

$22 

Low Core Cell containing Zero 


The calling sequence is: 

RTJ flfiUXXX Where XXX is D2I-, D2F-, or D2D 

1. address of coefficient 

2. address of exponent 
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j&ouble Floating to Single Floating 



DEXP 

Page 1 of 12 


C A 130*1 REV 10-67 






CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER 


DIVISION 


DOCUMENT CLASS—Iill PAGE NO 

PRODUCT MAMF 1'7DD MASS STORAGE FORTRAN 

PRODUCT MODEL NO C005*3.3> A/B MACHINE SERIES 


Double Floating to Integer 



DEXP 

Page 2 of 12 
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Double Floating to Double Floating 



DEXP 

Page 3 of 12 
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DFL0F6 equals 

-1 D**I 
□ D#*F 
+1 ]>**]> 

2. From this place 
a jump is made 
to DLOGEX 



11-m 


1?D0 


DEXP 

Page S of 12 
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3. Process D»*I 

Process D*#F 
or D#aD 




DEXP 

Page b of 12 
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Process Double Floating to Integer 



DEXP 
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5. 


b. 


Floating 
DFRSLT = 

DFRSLT*nLTPR 

Test exponent to see 
if all significant 
bits have been 
shifted out. 


TST4ZR 



DEXP 

Page 8 of 12 
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7. Square floating 
multiplier 
riLTPR = MLTPR*nLTPR 



DEXP 

Page T of 12 
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Process Double Floating to Floating or Single Floating to Floating 


fl. First word into 
DFRSLTi 

Second word into 
DFRSLT+1 

T. flake result zero 
to avoid a fault 
in the natural 
log routine. 

IQ. Exit 



DEXP 

Page 10 of 12 
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11. Take natural log 
of coefficient. 



Page 11 of 12 
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13. Exit 





DEXP 

Page 12 of 12 
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APPENDIX A 

17UD Double Precision Mathematical Approximations 


l.D INTRODUCTION 

This paper will derive approximat ions for object time 
1700 FORTRAN programs which will allow fast evaluations 
with necessary accuracy and uncomplicated range reduction. 


1.1 Accuracy 

Since all approximations are to be in floating-pointi 
it shall be required that : 

R<2"^'’ = l.fll'iE-lZ 

which is the basic round off due to the size of signif- 
icant digits in 1700 . 


2.0 GENERAL DESCRIPTION OF METHOD 

The method will use normal truncated Taylor-Mclaur in 
Power Series . 


2.1 


Truncated Taylor-Mclaurin Power Series 

A function will be expressed as a truncated Taylor- 
Mclaurin series such that the error produced is less 
than R . That isi 

m 

f-CN> = \ x"i /n/<a 

Z — ^ n! 

n=0 

and m is chosen such that 


R< 


^{m+13- 

{m+l>! 


X 


m+1 


R 


T 
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17D0 


3.D 


SIN-CX> for X<7T/2 

The Taylor-Hclaurin series is 

a 

SIN-CX} = ^ 




n=D 

Uhich expands to: 
SIN-CX> = X - —r + ^ 


C2n+l>l 


7 “il 
X X 
+ 


11 ^ ^13 


4> ' ^ 


3! S! " 7! T! " 11! 13! IS! 17! 


M.O 


5.Q 


Arctan-CX> for X^ tan WLhJ 
The Taylor-Hclaurin series is: 


a 

Arctan-CX> = 

n=Q 



f“l>'^ X^n+l 
2n+l 


Which expands to: 


Arctan-CX> 



S 7 =} 11 13 IS 17 


^ ... Xf 'ln2 

Exponential i e for x < y - 

Taylor-Mclaur in series is a normal series truncated 
after n = that isn 



Which expanded-! gives : 
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i?nD. 


Now X and N can always be found such that e^ 
where XC - - ■ - 


2N^X 


If X and N are defined as follows 

Let t = y/ln 2 

N = t + 1/2: integral part 

w = t - N 
X = U In 2 . 


then 


X = -Ct-N>’ln 2 

. w -N . 

e 


fin 2 - ln-C2^ 


. 2-^ 

and eV = 2 ^ -X 


b.D 


Natural Logarithm X for j X j ^ -C3-2VS 
The Taylon-Mclaurin series is: 

„2n+l 



= 2 


Which expands to: 


1-X 3 5 7 T 11 13 IS 17 

,N 


Given Y = 2 A where 1/2<Z<1 
Then lnIY> = N • In 2 + In Z • 



then /X/< 3 - 2 
and In Z = 


llLl ^ in 
2 1-X 


Finally-! In Y = -CN - 1/2}. In 2 In 


1 X 
1-X 
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EXPONENT 

V = 0 > 


N=0 

N+1=0 


T3 T) a 
>D JO O 

o on 
o o c 
c c 2 
o n m 
H H z 


m m > 


EXPONENT 

V <0 V 


CHANGE 

EXPONENT OF U 
TO ZERO 


,N0W N, N+1 
IS A FLOATING 
POINT NUllBER 


U = oo 


N+l=-0 


MAKE EXPONENT 
POSITIVE 


IH-1=0 



TYPEOUT 

LN 


FIND FLOATING 
EXPRESSION TO 
EXPRESS EXPONENT 
STORE IN N 


X « > C X 
n=0 


N*1 0 


t 

J=(N-l/2)LN(2)-fX 


RETURN 


N=- 

N 






U = PSEUDO ACCUMULATOR 


b-< 

-nJ H 

a f 

□ ro 


CONTROL DATA CORPORATION 
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__ 
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n 

> 


13 

70 


13 O 
70 O 



O 

n 

n 


n 


?9 


n' 

mo 


m> 

o 

-o 

o 

> 

H 

o 

z 


2 

< 
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TABLE OF CONTENTS 


12. Q Double Precision Floating Point Package 


12 .1 


General Description 


12 .1.1 
12.1.2 
12 .1.3 
12 .l.M 
12 .1.5 


12 . 1 . la 


Exponent . 

Coefficient * 

Calling Sequence 

Operations 

Operands 

12.1.5.1 Absolute Addressing 

12.1.5.2 Relative Addressing 

12.1.5.3 Example 

Fault Condition 


12.2 Double Precision Floating Point Arithmetic with 3T bit numbers 

12 .2 .1 Introduction 

12 .2 .2 The Four Arithmetic Operations 

12.3 Low Core Storage Locations and Temporary or Volatile Storage 

12. M Entry Points and Externals 


12.5 Flow chart of DFLOT 
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12.0 

12.1 


12 . 1.1 


12.1.2 


DOUBLE PRECISION FLOATING POINT PACKAGE 
General Description 


Each double precision floating point number 
consecutive words of 1700 Computer storage . 
containing the most significant bits of the 
one that is addressed. Normalized floating 
as follows : 


requires three 
The f irst wordi 
number! is the 
point format is 


IS 

m 7 

h 0 

r 

EXPONENT -ca BITS} 

NORMALIZED 

f 

’ SIGN OF NUMBER 


IS 


D 

COEFFICIENT 

IS 


□ 

OF 3*1 BITS 


Thus the numbers! X! expressable are of the range -2^^^ 

1 1 

•C1-231}< X< 2l27{i-23T} and are significant to one part in 

' bil l i on • If th e m o st si gnifica nt wor d ^s zer o 

of“ zero or 1>! a floating point zero is assumed. 

Exponent ' 

The floating point exponent is an fl-bit quantity with a 
value ranging from DO to FFib . Through biasing by flOib ! 

this range expresses both positive and negative exponents . 

% 

Coefficient 


The coefficient consists of a 3*1 bit number n! l-2~3'^>|n| 
>Q. The high order bit position of the first word is 
the coefficient sign bit . 

A zero denotes a positive coefficient and a one denotes a / 
negative coefficient . lilhen the coefficient is negative! . 
the entire floating point number is stored in complement 
form . 
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12.1.3 Calling Sequence 

DFLOT uses an interpretive calling sequence. It saves the d-, 
Ai and I registers in Temporary Storages it uses the communi- 
cations locations $CSt $Ctn and ^C7 as a pseudo accumulator. 
The pseudo accumulator is retained in volatile or temporary 
storage between calls to DFLOT. 

The interpretat ion of the calling sequence is based on a 
string of M-bit bytes representing the operations! followed 
by the operand addresses. The leftmost H-bit byte is the 
first operation^ the operand addresses-i if they existn follow 
in the same order as the operation bytesi one word per byte. 
As many bytes may exist as desired-i but the terminating byte 
must be Mi the operation FEND. 


Example : 



The 0-j '’s are the operation codesi the A •' s are their 
operand addresses. An operand address is not needed by 
all operations! for instance! operation code O3 does not 
have a corresponding A3. 
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12.1.4 Operations 

The following operations are used by the floating point 
package • 


M-bit 

Operation Code 

CHm> S 


INOX Fib 


NIDX L 

DFLDD Bib 

DFLST Olb 

OFCOn 7 

DFADD Eib 


fleaninq 

Change’ of mode operation. All operand 
addresses following this operation code 
in the calling sequence are made relative 
if the preceding addresses were absolute! 
or absolute if the preceding addresses 
were relative . Addresses are assumed 
initially absolute . No operand is needed • 

Index . The operand corresponding to INOX 
is used to increment the operand of the 
following operations : OFLOOt OFLSTt OFAOOn 

OFSUBn OFflPY-, and OFOIV . 

Each succeeding INOX supercedes the last. 

No index is initially assumed . 

No index . The succeeding operands do not 
have indexing increments . NIOX supercedes 
any preceding INOX •> and is superceded by 
any following INOX . NIOX is assumed 
initially . No operand is needed . 

Oouble Floating load . The floating point 
number in the corresponding effective op- 
erand address is transf erred to the pseu- 
do accumulator located in temporary 
storage . 

Oouble Floating store . The floating point 
number is transferred from the pseudo ac- 
cumulator to the corresponding effective 
operand address . 

Oouble Floating complement . The pseudo 
accumulator is complemented . No operand 
is needed . 

Oouble Floating add . The contents of the 
effective operand address is added to the 
pseudo accumulator -I and the sum is left in 
the pseudo accumulator . 
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12 .l.S 


DFSUB fi Double Floating subtract. The contents 

of the effective operand address is sub- 
tracted from the pseudo accumulator-t 
and the result is left in the pseudo 
accumulator . 

DFHPY T Double Floating multiply. The pseudo ac- 

cumulator is multiplied by the contents 
of the effective operand addressi and the 
result is left in the pseudo accumulator. 

DFDIV Alb Double Floating divi-de. The pseudo ac- 

cumulator is divided by the contents of 
the effective operand addressn and the 
result is left in the pseudo accumulator . 

FEND M End of calling sequence . This oper at ion 

{also It terminates the calling sequence . No 

2i3> operand needed . 

Operands 

All operand addresses t absolute or relative ■, are placed in 

bits m-D. Bit IS is a flag set to distinguish between direct 

and indirect addresses . 

12.1.S.1 Absolute Addressing 

An absolute address may be either direct or indirect . 

All indirect addressing is executed prior to indexing 

Only one level of indirect addressing is allowed . 


12. l.S. 2 Relative Addressing 


A relative address may be indirect to one level of 
i hdirectness . The relative address is computed by 
subtracting the location of the address in the cal- 
ling sequence from the address contained in that loca 
t ion . For instance! if the relative addressi A],t is 
contained in location L+3i where L is the first word 
of the calling sequence! the relative address = 

Ai - L + 3. 

12.1. S. 3 Example 


Compute the floating point arithmet ic statement : 
X=-{A{I} + B{I»*C{I>+D{J>*E{J} 
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Assuming that X-ir J, D, Et and the temporary 
location TEMP are absolutely addressedi and the 
other operands relatively addressedi the generated 
calling sequence would be: 


A circle around 
the operator indi 
cates that the op 
erator has no 
operand • 


RTJ 





DFLOT 

Fib 

Bib 


© 

absolute 

address 

J 


absolute 

address 

» 


absolute 

address 

E 



© 1 

f^lb 

^Ib 

absolute 

address 

TEnp 


relative 

address 

X: 


relative 

address 

A 




© 

© 

relative 

address 

B 


relative 

address 

C 


© 

Elb 

L 

®lb 

© 

absolute 

address 

TEnp 


absolute 

address 

X 
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Fault Conditions 

Fault conditions are flagged in a communication location -C^Cfl} 
whenever they occur during execution. The following bits are 
set to one; 

BIT Fault Condition 

IS Exponent overflow^ the exponent in an arith- 

metic operation exceeds the maximum range limit 
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12 .2 


BIT 

Fault 

Condition 




m 

Divide 

faulti di 

vis 

ion 

by zero is encountered. 

13 

Expone 

nt under fl 

OWi 

the 

exponent in an arith- 


me tic 

operation 

is 

less 

than the minimum range 


limit. 






If exponent 
If exponent 
priate sign 
These error 


underflow occursi a floating point zero results, 
overflow occursi the largest word of the appro- 
results. A divide fault is treated as overflow, 
conditions may be tested with the IFALT function. 


FLOATING-POINT ARITHMETIC WITH 3^-BIT NUMBERS 


T.2.1 Introduction 

Consider the double precision floating-point number: 

F = f*2^ . {1} 

where jf| lies in the range 

1/2 < I f 1 < 1 - 2"^'^. {2} 

Ue have a machine with a word length of lb bits and that the 
MS bits in the double length word are divided in the following 
way: 


bits 

binary point 


7 most significant bits of f 



The leftmost block of nine bits is divided into three parts: 

1 . The first {leftmost} bit represents the sign of F . 

2 . The second bit represents the sign of ^ • 
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3. The next 7 bits represent the magnitude of f. This 
allows 3T bits for the" representation of f. ble 
shall assume that the binary point lies at the left 
and of the 31 bits representing f so that the 7 most 
significant bits of f are stored in the first word 
of the three-i and the lb least significant bits of f 
are stored in the third word of the three. 

If we write 

|f| = c + ci X 2-7 + d X 2-23 { 3 } 

where c lies in the range 

l/ 2 <c<l -2”7 my 

ci lies in the range 

D<ci<l-2"1^ CS} 


and where d lies in the range 

Q< d < 1 -2-it> my 

then c represents the 7 most significant bits of f i ci repre- 
sents the lb intermediate significant bits of ft and d repre- 
sents the lb least significant bits of f • 

Lie wish to consider the four basic arithmetic operations using 
double precision floating point numbers of the form discussed . 
Consequently! in order to have notation for two operands! let 
us consider a second double precision floating point number • 


G = g.2^ ! { 7 } 

where jg| lies in the range 

1/2 < Igj < 1 Ca> 

If we write 

|g| = a + ai x 2"’^ + b x 2"23 -n> 

where a lies in the range 

1/2 < a < 1 -2-7 -C1D> 
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1 ? .? .? 


ai lies in the range 
G < ai< 1 - 2“^^ 
and b lies in the range 


0<b<l -2' 


•lb 


■Cll} 


C12> 


then a represents the 7 most significant bits of |g|i ai 
represents the intermediate significant bits of jgin and b 
represents the lb least significant bits of |g|- 


The machine 
complement" 


’one ' s- 


represents negative numbers using a _ 

system . In fact the procedure for changing the 
sign of a floating point number is to perform a bit-by-bit 
complement of the entire Mfl bits {including the H bits re- 
presenting the sign and exponent}. 


THE FOUR ARITHMETIC OPERATIONS 


Addition 


F + G = f X 2^ 


+ g X 2 


8 


■C13} 


The basic problem in floating point addition is to adjust the 
expone nt of F -Cor G} so that the binary points are lined up 
before the addition takes place . 

Let us introduce the notation L to represent three cells con- 
taining the larger of the two numbers F and G-i and the notation 
S to represent three cells containing the smaller of the two 
numbers . Lie shall say that F is larger than G if 


/S >8 

and F is smaller than G if 
/3<h 


■CIH} 


■CIS} 


Lie are not concerned about the relative magnitudes of f and 
g in case the exponents are equal • Using this convent ion-i 
we process the following algorithm for forming F + G : 


1 • Record the leftmost 
records p and 8 • 


nine bits of F and G • This i in effecti 
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Determine the sign of L/9 - S> and thus determine 
whether F is smaller or larger than G according 
to -cm} and -CIS}. 

Place f and g in L and S. If F is larger than G-i 
then f goes into Li otherwise-! f goes into S and 
g goes into L- The following bit patterns should 
be formed -[here s means "sign bit"}: 


+ 

s 

s 

13 most significant bits 

MSB 





binary point 


+ IS intermediate significant bits 


11 least signf icant bits 


M sign bits 


ISB 

LSB 


j ^ 

s 

1 I 

1 . J 

13 most significant bits 

binary 

aoint 


MSB 


S 


lb intermediate significant bits 


10 least significant bits 


b sign bits 


ISB 

LSB 


H. 


Shift S right i/3 - S I places and put a "+" bit at 
the beginning of each of the three words . If 
1^ - Si = 31-j then there is no need to continue 
since all significant bits in S will be lost . 
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+ 

S 

s 

( $ - 81 "filler" bits 

MSB 

binary 

Doint 




ISB 






4 * 


LSB 


Notice that the |/3 - SI "filler" bitsi between the 
binary point in S and the most significant bit of the 
function-, are sign bits. This is mathematically correct 
in a one ' s complement representat ion of negative numbers . 

S • Add the LSB portions of L and S. 



Ue cal 1 the first bit of this sum c . If it is a one-, 
we actually have a carry ■ However i it usually is easier 
to add c -Csee step L> than to test to see whether or 
not it needs to be added as a carry bit in forming the 
sum of the ISB port ions of L and S • 

b • Add the ISB portions of L and S and the carry bit from 
step S. 


cl 


If cl 

is 

set 

to 

one-i 

we 

have a < 

:arr 

y and we 

will add 

cl to 

St 

ep 7 

in 

f ormi 

Lng 

the Sum 

of 

the most 

significant 

bits 

of 

L and S- 





7. Add the 

nsB 

portions 

of 

L and S 

and 

add the 

carry bit 


obtained from step b • 
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If e = 1 then an end-around- 
This means that a one is add 
word produced in step S. Si 
a carry biti the c in the di 
cleared to zero before the e 
carry bit is again producedi 
at the right end of the word 
this might also produce a ca 
diagram -Csee step must be 
the end-around-carry • If a 
then a one must be added at 
above. It can be shown that 
never produce another e = 1 


carry must be performed, 
ed at the right end of the 
nee this might also produce 
agram {see step S> must be 
nd-around-carry . If a 
then a one must be added 
produced in step b. Since 
rry bitn the cl in the 
cleared to zero before 
carry bit is again producadn 
the right end of the word 
this last operation can 


&. 


If V = s then visa sign bit . However i if v / s then 
there has been overflow during the addition! and the 
V is the most significant bit of the sum • In the latter 
case an adjustment of the exponent will be necessary 
to give the correct answer . 

Shift the LSB portion of the sum left one place to clear 
out the carr y bit c . Than shift the ISB portion of the 
sum left one pi ace to clear out the carry bit cl . Then 
shift the LSB portion of the sum one place and put the 
bit shifted off into the right most bit of the ISB por- 
tion of the sum . Then shift the triple length sum left 
{a> one place if v si {b> two places if v = s . 


This leaves the sum in the following form 


s 

IS most significant bits of the sum 


lb 

intermediate significant bits of the sum | 


at 

least & bits of the sum 

sign bits 


T . If the triple length sum was shifted one place left in 
step 7 {v ^ s> then the exponent must be adjusted to 
take care of the overflow . This means adding one to 
the exponent P or B-> whichever is larger . {This will 
be the exponent of the sum.} If the double length sum 
was shifted two places left in step 7 i no adjustment 
of exponent is necessary . 







10* The form of the sum given by step fl must be checked 
for normal ization since it is possible that several 
of the leading bits of the sum may be zero. {Can- 
cellation occurs when two numbers of opposite sign 
but nearly equal magnitude are added. > If the sum 
is not normalized at this pointn appropriate adjust- 
ments in the exponents should be made- 

If ST left shifts are not sufficient for normaliza- 
tioni then the sum should be made zero. 

11. At this point the normalized sum may be rounded 
although the extra coding involved may not be worth 
the gain. If rounding is desiredi then there are 
two cases to be considered depending on the sign 

of the sum. These cases require that care be taken 
in handling any carry bit produced by the rounding 
operations. 

12. Now pack the 3T most significant bits of the sumi 
along with 1 bits representing the sign and exponenti 
into three lb-bit words {in the standard way}. If 
the sign of the sum is negativen then the first 1 
bits must be complemented bef ore the packing takes 
place. 

B . Subtraction 

No special subroutine is necessary since 
F - 6 = F + {-G> 

and one merely complements G before entering the addition 
subroutine . 

C . Multiplication 

F x 6 = {f X 2^} {g X 2^> {lb} 

= {sign F X 6} Ifl x |g| x 2^^^ 

The computational procedure is primarily concerned with the 

f ormat ion of Ifl x |g| x 2^*^ since {sign F x 6} can be recorded 
in advance and used later to apply the correct sign to the 
product . In addition to recording {sign F x 6}n we record 
the exponents p and S after the product Ifl x Igl is formed. 

In fact -1 we propose the following algorithm f or multiplying 
F by 6: 
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1. Determine and record Isign F x 6> 

2. Form IFI and 161 

3« Record the leftmost nine bits of IFI and IGl . This-j in 
effectn records /3 and S* 

M* Shift the 3T bits of Ifl and |g| left until each has the 
bit pattern. 


+ 

IS most significant bits 


□ 

IS intermediate significant bits j 


0 

T least significant bits 

L zeros 


C and A 
Ci and Ai 


If this procedure is followedn f is no longer represented 
by I3> during the computation in step St below but has the 
form: 


f = C + Ci X 2“^^ + D X 2"^° 

where Ct Cin and D lie in the following range 

2“^<C<1 - 2~^^ 

0 <Ci < 1 - 2“^^ 

D < D < 1 - 2"'^ 

likewise |g| has the form 

,-lS 


.-30 


Igl = A + Ai X 2 + B X 2 

where At AiT and B lie in the following range 


2"^ < A < 1 


-IS 


□ <Ai<l - 2 
0 < B < 1 - 2"'’ 


2 
-IS 


{17} 

{Ifl} 

{n} 

{ 20 } 

{ 21 } 

{ 22 } 

{23} 

{2M} 
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S. Use fixed point operations in forming the product. 

f X g = -CC + Ci X 2”^^ + D x 2"^°> LA + Ai x 2”^^ + B x 2“^% 

= CA + -CCAi + CiA> x 2”^^ + LOA + CiAi + CB> x 2~^° 

+ LOAi + CiB> X 2”^*^ + DB x 2"^° 

= CA + -CCAi + CiA> x 2"^^ + LDA + CiAi + CB> x 2~^° 

L2S> 


Notice that the terms LDAi + CiBJ x 2 and DB x 2 may 
be ignored because once the product is placed back in 
standard form-i only 31 bits are retained • The following 
computational steps are perf ormed • 

a . Form CA giving a double length product . 

b . Form DA and retain the most signif icant half of 
the double length product . 

c . Form CiAi and retain the most signif icant half of 
the double length product • 

d . Form CiA giving a double length product • 

e . Add the most significant half of DA to the most 
significant half of CiAi. 

f. Form CB and retain the most significant half of 
the double length product . 

g . Add the most signif icant half of DB to the sum 
obtained in Le> • 

h • Add the least significant half of CiA to the sum 
obtained in Lg>. 

i . Form CAi giving a double length product . 

j. Add the least significant half of CAi to the sum 
obtained in -Chi . This result is the least signi- 
f icant portion of the triple length product . 

k . Add the most signif icant half of CiA to CAi. 

l. Add the least signif icant half of CA to the sum 
obtained in Lk>. This result is the intermediate 
significant portion of the triple length product . 
The first half of the double length product is the 
most significant half of CA which was f ormed above 
in La}. 
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(j« Nexti round and normalize the product obtained using 
{2S> in step S. Any adjustment in the exponent 

+ S which is necessary because of the normalization 
of ify X •Cg> must be performed* 

7. Finallyn pack the 3^ bits of the normalized product 
and the 1 bits representing the sign and the adjusted 
exponent into three lt> bit words {in the standard 
way>* If the {sign F*G> is negativen the two words 
must then be complemented to give the correct sign 
to the product* 

D * Division 

* = S X -I = {g X 2^} x { — 

^ ^ f X 2^ 

n I 

= {Sgn S X F} X (gl X y ! X 2 {2b> 

As a matter of facti since we want 

1^1 < 1-, {27> 

liie scale the numerator and write 

S-/3+1 

X 2 {26> 

Thus we propose the following algorithm for dividing 6 by F: 
1* Determine and record {Sgn F x G>* 

2. Form {F> and {G>* 

3* Record the leftmost eight bits of {F> and {GJ* 

Thisn in effectn records /3 and S* 

M* Arrange the 3'5 bits of {fJ to give the bit pattern: 


6 

F 


= {Sgn G X F> x ig| 


1 

2 


1* 

IS most significant bits of {f } 


0 

IS intermediate significant bits of {f } 


A 


Ai 
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17 DO 


0 I 9 least significant bits 


6 zeros 


B 


and the 31 bits which represent the number 1-D 
to give the bit patterns 


14 most significant bits of 1/2 


$2000 a 


$0000 7 


$0000 € 


S. Use fixed point operations in forming the quotient. 


15 intermediate significant bits of 1/2 


IG least significant bits of 1/2 5 


zeros 


1 g . y X 2-^" . c X 

A + Ai X 2"^^ + B X 2“^° A + Ai x 2~^^ + B x 2“^° 

where: a = $2000 

7 « $0000 
e = $0000 

- T * t; 2 

t ^ - S^y X 

- Ai. {y - X 


= }[g-f [Ai X 

+ h:b - X 2“^°] 


. €211 
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-4S 

Any terms beginning with 2 are ignored because only 
3*1 bits of the quotient are retained* The following 
computational steps are performed: 

2 

a* Form - Ai giving a double length product. 

2 

b. Divide - Ai -Cas a double length dividendl- by A. 

..2 

c. Form B - -y- Grounded to single length}. 


d. Form the double length dividend 

Ai X 2“^^ + [cB - -^} X 2“^°] 

■CThe sign of the second term makes this tricky} . 


e. Divide the double length dividend by A and multiply 
the result by a. The multiply is accomplished by 
shifting the result of the divide . 

f . To obtain the second half of the double length quotient n 
the remainder resulting from the division in the 
previous step must now be divided by A . 

g • Form a Cthe most significant bits of 1/2} and the 

result obtained from step e as a double length dividend . 

h . Divide the double length dividend by A • The result 
is the most significant bits of the quotient . 

i . Form the remainder of step h and the result of step 
f as a double length dividend . 

j . Divide the double length dividend by A. The result is 
the intermediate significant bits of the quotient . 


k . Divide the remainder obtained in step j by A . The 

result is the least signif icant bits of the quotient • 


1 . 


Next -I round and normalize the 3 word quotient using 
•C21} and the procedure of step S • Any adjustment in 
the exponent which is necessary because of normaliza- 

I 1 I 


tion of 



must 


be per f ormed . 


m . The 3 word quotient is then multiplied by jgj. 
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n. Next-i round and normalize the product. Any adjustment 
in the exponent ^+S which is necessary due to the 
normal ization must be performed • 

o. Finally pack the 3T bits of the normalized quotient and 
the T bits representing the sign and the exponent into 
three lb bit words -tin the standard way}. If CSgn F x. Gl 
is negativen the three words must then be complemented to 
give the correct sign to the quotient. 

REFERENCES 


Gregorvi Robert T. and Raney t James L»A Floating Point 
Arithmetic with flM-Bit Numbers-i Communications of the 
ACrin Volume 1/ Number 1/ January-i ITbM • 

12.3 Low Core Storage Location and Temporary or Volatile Storage 

DFLOT sets the low core locations ^CS through $Cfii they are 
assigned as follows : 


O 


Location 

Name 

Location 

Use 

6 

$C5 

Pseudo accumulator - the three words 

G+l 

$Cb 

of the double precision floating 

6 + 2 

^C7 

point number are placed here . 

ERRORS 

^Cfi 

Error bits to indicate exponent 
overflown divide faultn and exponent 
underflow • These error bits are 
used by IFALT to check for these 
floating point errors . 


There are two versions of DFLOT. The two packages are called 
by the same name CDFLOTl-i but one is reentrant and the other 
non-re-entrant . Both packages are usable by run-anywhere pro- 
grams . The re-entr ant package must operate in protected core . 
The non re-entrant package may operate anywhere . 

The non-reentrant version of DFLOT utilizes temporary storage 
to per f orm its computations . The re-entrant version of DFLOT 
utilizes • The volatile storage concept for temporary storagi^ 
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The non-re-entrant version of DFLOT requires the deck labeled 
DUhVOL which contains entry points AVOLA and AVOLR • This 
deck provides the simulated volatile storage or temporary 
storage required for DFLOT in the background. 

DFLOT uses 30 volatile or, temporary storage locationsi they 
are assigned as follows: 


Location 

Name 

Volatile or 
Temporahy Storage 
Location 

Use 


0-1 1 

Contents of i3 register 


Iil 

Contents of A register 


2 T I 

1 

Contents of I register ^ 

G 

e+1, 

G+2 

3-.I 

S-,1 

Pseudo Accumulator - the three 
words of the double precision > 
floating point number are placed 
here. The pseudo accumulator is 
broken up into Ci Cli Di and 
DELTA 

SIGN 

L.-.I 

Sign register - sign double pre- 
cision floating point number 

ERRORS 

7-.I 

Error bits 

Bit IS indicates exponent over- 
flow 

Bit l4 indicates divide fault 
{divide by zero! 

Bit 13 indicates exponent under- 
f low . These are used by IFALT to 
check for these floating point 
errors . 

F 

a -,1 

1. Address of parameter 

or 

2. First word of a {three word> 
double precision floating 
point number . 

It is used when two operands are 
needed-i e.g. for an add . In this 
case Fi F■^l 1 and F+2 are broken 
up into At All Bi BETA • 
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Location 

Name 

Volatile or 
Temporary Storage 
Location 

Use 

F-8-1 

M 

r 

IT 

The second word of a -Cthree 
word} double precision floating 
point number. 

F+2 

1D-.I 

The third word of a {three word} 
double precision floating point 
number. 

A 

11-.I 

The most significant hits of the 
coefficient of the double pre- 
cision floating point number. 

AI 

12-.I 

The intermediate significant 
bits of the coefficient .of the 
double precision floating point 
number. 

B 

13,1 

The least significant bits of 
the coefficient “of' the double 
precision floating point number . 

BETA 

m,i 

Exponent of the double precision 
floating point number • 

C 

IS, I 

Most significant bits of the co- 
efficient of the double precision 
floating point number . 

Cl 

lb, I 

Intermediate significant bits of 
the double precision floating 
point number. 

D 

17,1 

Least significant bits of the co- 
efficient of the double precision 
floating point number . 

DELTA 

16, 1 

Exponent of double precision 
floating point number . 

SHIFCT 

n,i 



c 
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Location 

Name 

Volatile or 
Temporary Storage 
Location 

Use 

P 

20-,! 

Pseudo program address counter 
which is used by DFLOT to know 
where it is in the users program 
when it wants to pick up more 
parameters from the variable 
calling sequence or return to 
the calling program. 

RELADR 

21-.I 

Absolute/relative indication 

pr-| at\p r = 1 relati-ve address 
KLLAWK P absolute address 

OPCNT 

22-.I 

Operation counter - keeps track 
of which operation code'^is being 
processed. 

INDEX 

23-.I 

Effective address of parameter 

OPCODE 

2M-.I 

Operation code h'older - holds the 
operation -Cop! codes contained 
within the call . 

as 

2S-.I 

Saves a register upon entry into 
DFLOT 

TEtipa 

2t,il 

Temporary Storage for many 
purposes 

TENGP2 

27il 

Temporary Storage for may 
purposes 

T1 


Temporary Storage for MSB of 
1/Divisor 

T2 


Temporary Storage for ISB of 
1/Divisor 

T3 


Temporary Storage for LSB of 
1/Divisor 

nULDIV 


Mult iply/Divide Flagi = 1 for 
Divided - 0 for multiply . 
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12. M Entry Points and Externals 

The routine DFLOT has one entry pointi DFLOT . DFLOT has 
two externals: AVOIIA and AVOIR. 

12 .S Flowchart of DFLOT 

The following abbreviations are used: 


USB = most significant bits 

ISB = intermediate significant bits 

LSB = least significant bits 
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OPERATION CODE =5 

CHANGE NODE OF OPERATION {CHND> 
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DOCUMENT CLASS 
PRODUCT NAME 


CONTROL DATA CORPORATION 
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PRODUCT MODEL NO CDD5»3.1 A/B 


MACHINE SERIES. 


T7UIT 


OPERATION CODE - D 


DOUBLE STORE ACCUMULATOR (DFLST) 


1. TEST FOR PROTECT 
VIOLATION. 

2. STORAGE ADDRESS 
IS PROTECTED. 

3. SIMULATE PROTECT 
VIOLATION. 



FLTSTO 



SPACE ACCU- 
^MULATOR BACK 
tNTO "STAND/ 
FORM 


OPERND 
GET ADDRESS 
OF OPERAND 


PICK UP CON- 
TENT OF $22 
(ZERO) AND 
STORE IN CAL- I 
LERS RETURN ADDRESS 



JUMP TO CALLEI .£ 
RETURN ADDRESS I 
WHICH IS NOW 
ZERO 


PROTECT 

VIOLATION 


SUBTRACT 
LOWEST UNPRO- 
TECTED LOCA- 
TION FROM AD- 
DRESS OF OPER 


iND 



SUBTRACT 
HIGHEST UNPRO<i 
TECTED LOCA- 
TION FROM AD- 1 
DRESS OF OPER4ND 
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OPERATION CODE « B 

DOUBLE FLOATING LOAD 
(DFLOD) 

1. FOLLOWING FIVE 
BOXES LOAD THE 
OPERAND INTO G, 
©+1, AND G+2. 
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2. Unpack OPERAND into 
C, Cl. D and DELTA. 

3. Floating Point nund>er 
is assumed to be zero 
since first word is 
zero. 


2 3 
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17DD 


REPACKING ACCUMULATOR 

1. If C is zero, then the 
PSEUDO Accumulator Is 
zero. 
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12-33 


OPERATION CODE = 7 
FLOATING CONPLEHENT {FCON} 


1. A JUNP TO THE LABEL 
ANXT TAKES YOU TO A 
JUnP TO THE LABEL 
NXTOPC-NEXT OP CODE 


1 
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ms Page 12-33 
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CHANGE THE 
SIGN OF THE 
NUMBER TO 
THE OPPOSITE 
- S - IG - N '— r ' 
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get effective address of next OPERAND 

1. Address is direct if Indirect 
bit (Bit 15) Is not set. 

2. RELADR>1 if relative address 
and«0 If absolute address. 

3. Absolute and Indirect address. 
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INDIR 
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RETURN UITH 
EFFECTIVE ADDRESS 
OF OPERAND-1 IN 
(3REGISTER- 


.BSDtR 


PICKUP 
ADDRESS OF 
ADC OF PARAMETER 



OPADR 


PLACE EFFE.CllVE 
ADDRESS OF 
OPERAND -1 
IN fJREGISTEF 


IN CR EH ENT 
PSEUDO 
PROGRAH 
COUNTER 


RETURN 
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OPERATION CODE - 9 

DOUBLE FLOATING MULTIPLY (DFMPY) 

1. Gets the floating point 
nuniber and stores In F, F+1 
and F+2 then unpacks the 
number Into 

A-0, 15MSB 
AI-0, 15ISB 
B-0, 8LSB, 7 ZEROS 
BETA-EXPONENT 

2. A Jus^ to JMPOUT causes 
a jump to ARGO. 





CHANGE SIGN 
IF NUMBER 
IS NEGATIVE 
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17DD 
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Multiply the MSB of one 
number by the MSB of the 
other nuad>er. 
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4. Product - C*A+(C*AI40I*A)X2 

+ (D*A+CI*AI4C*B)X2* 

5. This routine checks for a carry 
In the A and Q registers. If A 
Is negative, carry Into Q. If 
Q is negative, end around. 



MULTIPLY 
Cl BY AI 


STORE CI*AI 
IN F 

^ 

MULTIPLY 
Cl BY A 


STORE CI*A 
IN P+1 
STORE CI*A 

IN G+l 

ADD DA TO 
CI*AI 

i 

STORE DA+CI+AI 
IN F+2 


STORE DA+CI*AI 
IN G+l 

1 

MULTIPLY 
C BY B 

i 4 

1 USE FIXED POINT 
OPERATIONS IN 
FORMING THE 
PRODUCT 


(MSB) Rounded 


(LSB) 

(MSB) 

(MSB) 

(LSB) 

(MSB) 

(MSB) 


I 
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This section rounds and 
truncates to 39 bits. 

Coefficient is of the 
form 0, 15MSB, but the 
15MSB are normalized 
such that- a one appears 
in the first location of 
the MSB with SpFCT 
keeping track of how many 
places have been shifted. 


ROUND 


STORE 15MSB 
OF PRODUCT IN 
G IN THE FORM 
0.15MSB 


ADD THE EXPONENTS 
OF THE TWO 
NUMBERS AND SUB- 
TRACT THE SHIFT 
COUNTER 


NORMLZ 


CLEAR THE 
SHIFT 
COUNTER 


STEP 6 I 

FIND THE POSITION 
OF THE FIRST 1 
BIT IN THE COEF- 
FICIENT OF THE 
PRODUCT AND STORE 
IN SHIFCT 


STORE RESULT IN 
DELTA, THE EXPO- 
NENT OF THE 
PRODUCT 


STEP 6A 


PLACE 

NORMALIZED 
COEFFICIENT 
IN C 


STORE THE 
LSB IN D 
STORE THE 
ISB IN Cl 
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8. A jiinp to FMFXIT then 
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1. A contains the sum of the 
first word of one argument 
times the second word of 
the other argument and 
vice versa. 

2. If A is negative, carry 
into Q. 

3. If Q is negative, end 
around. 
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OPERATION CODE - A 

FLOATING DIVIDE (FDIV) 

1. Gets the floating point 

nuinber and stores In F» F+1 
and F+2, then unpacks the 
niimber into A*0,15MSB 
A1«0,15ISB 
B^,8LSB, 7 zeros 
BETA-EXPONENT 



■QPERMD 
GET NEXT 
OPERAND 
ADDRESS 

in 

fltset 

RETURN WITH' 
F IN A 
REGISTER 



CHANGE THE 
SIGN--HAXE 
THE DIVISOR 
POSITIVE 
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2. Bxtund, Truncate and Normalize 
the results. 
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1 


At ASGFO, the entire nvimber 

is set equal to -fO 

A"+0 

B -+0 

BETA-+1 


STEP 

2A 
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EXTRACT COEFFI- 
CIENT FR(M 
FLOATING POINT 
NUMBER SO THAT 
A-0,15MSB 
AI-0,15ISB 
B-0,8LSB,ZER0S 


LOAD 1ST WORD 0F| 
FLOATING POINT 
NUMBER INTO A 


RETURN 
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OVERFLOW OR UNDERFLOW 


1. If A Is positive, an 
overflow occurred. 

If A is not positive, 
an underflow occurred. 
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OPERATION CODE - 8 
DOUBLE FLOATING SUBTRACT (DFSUB) 


1. Change the sign before 
entering the Add routine. 



OPERND 


GET NEXT 

OPERAND 

ADDRESS 


JL 


COCPLBMENT 
THE ENTIRE 
FLOATING 
POINT NUMBER 


I 
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OPERATION CODE - E 
DOUBLE FLOATING ADD (DFADD) 


1. This section adds the 
floating point numbers 
in G and F and places 
the result in G. 

2. Jtsnp out - back to NXTOPC, 
get next OP code. 
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3. 


This check is made by 
examining the difference 
of the e]q>onents of the 
two numbers. 



Q 

17DD 
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4. RESULT is result of 
DELTA-BETA-45; is there 
"TOO" great a difference 
between the ninobers. 

5. Shift smaller nuinber 
right (DELTA-BETA) and 
set the sign of MSB to 
positive. Shift LSB 
right 1 and set the 
sign of LSB positive. 
Clear the carry to bit 
13 and add 1 to MSB 
positive the smaller 
number. 
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6. Result Is result of 
addition of MSB and 
carry bit. 

7. Minus zero Is 
Q-7FFF 
A-FFFE 



12-57 

1700 


DFLOT 

Page 35 of 3^ 


CA 130-1 REV 10-67 








IF S.Efl.V, THEN V IS 
SIGN EXTENSION. 

IF S.NE.V-, THEN RESULT 
OVERFLOUEO INTO V. 


vi/ a 

SAVE SIGNS 
AND OVERFLO 
-CV> IN BITS 
1 AND 0 


BRANCH 
ACCORDING 
TO VALUES 01 
S AND V 


^SHF>2 


SHFSl 
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1700 


NO OVERFLOW 


OVERFLOW OCCURRED 




INCREMENT 
THE EXPONENT 
SINCE OVERFLOW 


SET C, Cl, AND 
TEMPQ TO SIGNf 
OV+39 BITS OF 
COEFFICIENT +7 
ZEROS 


i 


STOOD 
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9. Save the sign and magnitude 
of the results. 

On entiry 
C-SIGN+15MSB 
CI-16ISB 
D-8LSB+8ZEROS 


9 
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10. c-o+iaisB 
CI-16ISB 
D-8LSB+8ZEROS 


SET SIGN TO 
+1 FOR 
POSITIVE 
NUMBER 
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CHAPTER 13 
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OBJECT TIME DOUBLE PRECISION INTRINSIC FUNCTIONS 
AND COMPILER SUPPORT ROUTINES 

General Description 

£2fiDAB Routine 

DSIGN Routine 

(HflDFLT Routine 

SNGL Routine 

flfiDBLE Routine 
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13. Q OBJECT TIME DOUBLE PRECISION INTRINSIC FUNCTIONS 


13.1 


13.2 


General Description 

The following Object Time Intrinsic Functions are 
included in this chapter: 


Intrinsic Functions 

I/O Routine 

DABS-CX} 

(3fiDAB 

DSIGN-CXiYI 

DSIGN 

DFIX-CXI 

FXFL -CSee 
for 

DFLTII} 

(JflDFLT 

SNGL 

SNGL 

DBLE 

£}fiDBLE 


flfiPAB Routine 

This routine! which is written in 1700 Assembly Language-i 
computes the absolute value of a double precision 
floating point number and leaves the result in the 
pseudo accumulator. 


The calling sequence is: 

RTJ DABS 

1. address of argument 
The entry points are: 

(3fiDAB 

DABS -Cwhich is equated to (2SDABJ 
The external declared is: 

DFLOT 

The low core locations used by this routine are: 

DFLACC I$CSi$Ctii$C7> Double Precision pseudo 
accumulator 

NASKSB I$ll> flask $7FFF 
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13.3 DSI6N Routine 

This routine! which is written in 17DQ Assembly Language! 
computes the sign of the second argument times the 
absolute value of the first argument and leaves the 
result in the pseudo accumulator* 

The calling sequence is: 

RTJ DSIGN 

1. address of first argument 

2. address of second argument 

The entry points are: 
iSaDSG 

DSIGN Iwhich is equated to flfiDSGI 
The declared external is: 

DFLOT 

The low core locations used by this routine are- 


A1 

■c$Da> 





A2 






FF 

-C«E1> 

used 

to 

save I 

register 

as 

-C$E2> 

used 

to 

save a 

register 


13 • *4 aaPFLT Routine 

Entry DFLT 

This routine! which is written in 17DD Assembly Language! 
performs the conversion of an integer number into a 
double precision floating point number* 

The calling sequence is: 

RTJ DFLT 

1 * address of argument 
The external declared is: 

FLOAT 
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The low core locations used by this routine are: 

MASK MASK bit pattern $7FFF 

(2S -C$E2> used to save (2 register 

Entry flflPFLT 

This routine-i which is written in Assembly Language! 
performs the conversion -[across the equal sign> of an 
integer into a double precision Floating Point Number 
-C1>P=I>. 

The calling sequence is: 

LDA I -[the integer value to be converted is in 
the A register upon entry> 

RTJ (SaOFLT 

The external declared is: 

(2fl(2FLT 

The low core location used by this routine is: 
fiS -C$E2> used to save i2 register 

13. S SNGL Routine 

This routine -1 which is written in 17DD Assembly Language! 
obtains the most significant 32 bits of a double 
precision argument. 

The calling sequence is: 

RTJ SNGL 

1. address of argument 
The entry points are: 

SNGL 

flflSNGL -[which is equated to SNGL> 

The external declared is: 

FLOT 
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The low core location used by this routine is: 
HASK MASK word $7FFF 


13. L (IflDBLE Routine 


This routine -1 which is written in 17DD Assembly Language-, 
expresses a single precision number -Cthe 2-word argument! 
in double precision form {3-word result!. 

The calling sequence is: 

RTJ DBLE 

1. address of argument 
The entry points are: 

(SflDBLE 

DBLE {which is equated to iJflDBLE! 

The low core locations used by this routine are: 

DFLACC {$CS-.$Cbi$C7! Double Precision Floating 

Point Pseudo Accumulator 

MASK {$11! Mask utilizing the following 

bit pattern $7FFF 

ZERO {$22! Low Core cell containing Zero 


13.7 DRSTOR Subroutine - Double Precision Compiler Support 

Object Time Routine 

This subroutine is called by the FORTRAN compiler to 
perform double precision and single precision pseudo- 
accumulator stores which are necessary to provide 
efficient generated code. This subroutine is coded in 
1700 Assembly Language. It contains the following 
entry points: DSTORli RSTORli and DST0R2. 

The low core locations used by this routine are: 

CZERO {$22! Low Core cell containing Zero 

DFLACC {$CSi$Cfcii$C7! Double precision floating 

point pseudo accumulator 
MASK {$11! MASK bit Pattern $7FFF 

<2S {$E2! Used to save (2 register 
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Entry Point PSTORl 

This routine obtains values stored in $CL-i and 

$C7 and stores them in the parameter argument. 

The calling sequence is: 

RTJ DSTORl 

1. address of double precision argument 

The input to the routine is in cells $CSi $CL and $C7 . 

The output from the routine is the contents of cells 
$CS and along with the value zero stored in the 

parameter argument. 

Entry Point RSTORl 

This routine obtains values stored in $CS-i and 

$C7 and stores only $CS and $Cb in the parameter argu- 
ment which is single precision argument. 

The calling sequence is: 

RTJ RSTORl 

1. address of single precision argument 

The input to the routine is stored in cells $Cb 

and $C7 . 

The output from the routine is the contents of cells 
$CS and $CL into the parameter argument. 

Entry Point DST0R2 

This routine obtains values stored in the pseudo floating 
accumulator -{cells $CS and $Cb> and stores them in the 
parameter argument. The routine also stores a zero into 
cell $C7 as well as into the third word of the parameter 
argument. 

The calling sequence is: 

RTJ DST0R2 

1. address of double precision argument 
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The input to the routine is stored in cells $CS-i $Cb 
and $C7 . 

The output from the routine is the contents of cells 
$CS and and the value zero all stored in the 

parameter argument. Cell $C7 is also set to zero. 
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1. Is address negative^ 

2. Do a double precision 
floating point load of 
argument into pseudo 
accumulator. 



(3&DAB 
Page 1 of 
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3. Do a double precision 



iSdDAB 

Page 2 of 2 
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M. 


S. 


Have we just processed 
the first argument's 
address • 

Do a Double Precision 
floating point load of 
1st argument* 



DSIGN 

Page 2 of 3 
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DSISN 
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17DD 


1. FLOAT the integer 
parameter argument 


^ DFLT ^ 

Save Q 
Register 


Pick Up 
Address of 
Argument 



Store 

Address of 
Argument in 
AD |R 

FLOAT 
Result in 
$C5 & 

$C6 


Get Absolute 
Address of 
Argument 


I 


Restore Q 
Register 

T 

^ Return ^ 


Wo«K^ No 

Set Cell 

"S^ositive ^ 

$C7 to ••O 




Set Cell 
$C7 to 0 






Con?>lete Return 

^ 1 

r 

Address 




(26DFLT 
Page 1 of 2 
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1 


Perform conversion of 
an integer to a 
floating point number- 
Input is in A register 
Output is a floating 
point number contained 
in cells CS S CL- 


Q8DFLT 



f 

Save 

Q Register 

i 

rr 



Set Cell 
$C7 to 0 


L 4 


Restore 
Q Register 



C 


Return 


flfiDFLT 
Page 2 of 2 
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Page 1 of 3 


C A I3S-I REV 10-67 










CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER DIVISION 


DOCUMENT CLASS —ins PAGE NO 

PRODUCT MAMF 17DD MASS STORAGE FORTRAN 

PRODUCT MODEL NO CdD5*3 ■! A/B MACHINE SERIES ]lZ. DQ 



DRSTOR 
Page 2 of 3 


C A 1 38> 1 REV 10-67 







CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER DIVISION 


( DOCUMENT CLASS PAGE NO 

PROnurTNAMP 17D0 flASS STORAGE FORTRAN 

PRODUCT MODEL Kin CDD5»3.1 A/B MACHINE SERIES 3i70fl 


c 




Page 3 of 3 


C A 1 30- 1 REV 10-67 












o 



o 






